WIP on OpenGraph form; items field complete (#52)

src/MyWebLog.Tests/Domain/SupportTypesTests.fs

@@ -530,6 +530,26 @@ let openGraphTypeTests = testList "OpenGraphType" [
                 (fun () -> ignore (OpenGraphType.Parse "anthology")) "Invalid value should have raised an exception"
         }
     ]
+    test "Selections succeeds" {
+        let it = OpenGraphType.Selections
+        Expect.hasLength it 13 "There should be 13 selections"
+        Expect.equal (List.head it) ("article", "Article") "Article not found where expected"
+        Expect.equal (it |> List.item 1) ("book", "Book") "Book not found where expected"
+        Expect.equal (it |> List.item 2) ("music.album", "Music: Album") "MusicAlbum not found where expected"
+        Expect.equal (it |> List.item 3) ("music.playlist", "Music: Playlist") "MusicPlaylist not found where expected"
+        Expect.equal
+            (it |> List.item 4)
+            ("music.radio_station", "Music: Radio Station")
+            "MusicRadioStation not found where expected"
+        Expect.equal (it |> List.item 5) ("music.song", "Music: Song") "MusicSong not found where expected"
+        Expect.equal (it |> List.item 6) ("payment.link", "Payment Link") "PaymentLink not found where expected"
+        Expect.equal (it |> List.item 7) ("profile", "Profile") "Profile not found where expected"
+        Expect.equal (it |> List.item 8) ("video.episode", "Video: Episode") "VideoEpisode not found where expected"
+        Expect.equal (it |> List.item 9) ("video.movie", "Video: Movie") "VideoMovie not found where expected"
+        Expect.equal (it |> List.item 10) ("video.other", "Video: Other") "VideoOther not found where expected"
+        Expect.equal (it |> List.item 11) ("video.tv_show", "Video: TV Show") "VideoTvShow not found where expected"
+        Expect.equal (it |> List.item 12) ("website", "Website") "Website not found where expected"
+    }
     testList "ToString" [
         test "succeeds for Article" {
             Expect.equal (string Article) "article" "Article string incorrect"