Finish person role (#17)

src/MyWebLog.Tests/Domain/PodcastTypesTests.fs

@@ -588,6 +588,197 @@ let personRoleTests = testList "PersonRole" [
                 Expect.equal (it.ToDisplay()) "Editor" "The display string should be \"Editor\""
             | _ -> Expect.equal (it.ToDisplay()) (string it) "The display string should be its string value")
     }
+    testList "Group" [
+        test "succeeds for Announcer" {
+            Expect.equal Announcer.Group Cast "Announcer group incorrect"
+        }
+        test "succeeds for Assistant Camera" {
+            Expect.equal AssistantCamera.Group VideoProduction "Assistant Camera group incorrect"
+        }
+        test "succeeds for Assistant Director" {
+            Expect.equal AssistantDirector.Group CreativeDirection "Assistant Director group incorrect"
+        }
+        test "succeeds for Assistant Editor" {
+            Expect.equal AssistantEditor.Group VideoPostProduction "Assistant Editor group incorrect"
+        }
+        test "succeeds for Associate Producer" {
+            Expect.equal AssociateProducer.Group CreativeDirection "Associate Producer group incorrect"
+        }
+        test "succeeds for Audio Editor" {
+            Expect.equal AudioEditor.Group AudioPostProduction "Audio Editor group incorrect"
+        }
+        test "succeeds for Audio Engineer" {
+            Expect.equal AudioEngineer.Group AudioProduction "Audio Engineer group incorrect"
+        }
+        test "succeeds for Author" {
+            Expect.equal Author.Group Writing "Author group incorrect"
+        }
+        test "succeeds for Booking Coordinator" {
+            Expect.equal BookingCoordinator.Group Administration "Booking Coordinator group incorrect"
+        }
+        test "succeeds for Camera Grip" {
+            Expect.equal CameraGrip.Group VideoProduction "Camera Grip group incorrect"
+        }
+        test "succeeds for Camera Operator" {
+            Expect.equal CameraOperator.Group VideoProduction "Camera Operator group incorrect"
+        }
+        test "succeeds for Co-Host" {
+            Expect.equal CoHost.Group Cast "Co-Host group incorrect"
+        }
+        test "succeeds for Composer" {
+            Expect.equal Composer.Group AudioPostProduction "Composer group incorrect"
+        }
+        test "succeeds for Content Manager" {
+            Expect.equal ContentManager.Group Administration "Content Manager group incorrect"
+        }
+        test "succeeds for Consultant" {
+            Expect.equal Consultant.Group Misc "Consultant group incorrect"
+        }
+        test "succeeds for Cover Art Designer" {
+            Expect.equal CoverArtDesigner.Group Visuals "Cover Art Designer group incorrect"
+        }
+        test "succeeds for Co-Writer" {
+            Expect.equal CoWriter.Group Writing "Co-Writer group incorrect"
+        }
+        test "succeeds for Creative Director" {
+            Expect.equal CreativeDirector.Group CreativeDirection "Creative Director group incorrect"
+        }
+        test "succeeds for Development Producer" {
+            Expect.equal DevelopmentProducer.Group CreativeDirection "Development Producer group incorrect"
+        }
+        test "succeeds for Director" {
+            Expect.equal Director.Group CreativeDirection "Director group incorrect"
+        }
+        test "succeeds for Editorial Director" {
+            Expect.equal EditorialDirector.Group Writing "Editorial Director group incorrect"
+        }
+        test "succeeds for Executive Producer" {
+            Expect.equal ExecutiveProducer.Group CreativeDirection "Executive Producer group incorrect"
+        }
+        test "succeeds for Fact Checker" {
+            Expect.equal FactChecker.Group Writing "Fact Checker group incorrect"
+        }
+        test "succeeds for Foley Artist" {
+            Expect.equal FoleyArtist.Group AudioPostProduction "Foley Artist group incorrect"
+        }
+        test "succeeds for Graphic Designer" {
+            Expect.equal GraphicDesigner.Group Visuals "Graphic Designer group incorrect"
+        }
+        test "succeeds for Guest" {
+            Expect.equal Guest.Group Cast "Guest group incorrect"
+        }
+        test "succeeds for Guest Host" {
+            Expect.equal GuestHost.Group Cast "Guest Host group incorrect"
+        }
+        test "succeeds for Guest Writer" {
+            Expect.equal GuestWriter.Group Writing "Guest Writer group incorrect"
+        }
+        test "succeeds for Host" {
+            Expect.equal Host.Group Cast "Host group incorrect"
+        }
+        test "succeeds for Intern" {
+            Expect.equal Intern.Group Misc "Intern group incorrect"
+        }
+        test "succeeds for Lighting Designer" {
+            Expect.equal LightingDesigner.Group VideoProduction "Lighting Designer group incorrect"
+        }
+        test "succeeds for Logger" {
+            Expect.equal Logger.Group Writing "Logger group incorrect"
+        }
+        test "succeeds for Managing Editor" {
+            Expect.equal ManagingEditor.Group Writing "Managing Editor group incorrect"
+        }
+        test "succeeds for Marketing Manager" {
+            Expect.equal MarketingManager.Group Administration "Marketing Manager group incorrect"
+        }
+        test "succeeds for Music Contributor" {
+            Expect.equal MusicContributor.Group AudioPostProduction "Music Contributor group incorrect"
+        }
+        test "succeeds for Music Production" {
+            Expect.equal MusicProduction.Group AudioPostProduction "Music Production group incorrect"
+        }
+        test "succeeds for Narrator" {
+            Expect.equal Narrator.Group Cast "Narrator group incorrect"
+        }
+        test "succeeds for Post Production Engineer" {
+            Expect.equal PostProductionEngineer.Group AudioProduction "Post Production Engineer group incorrect"
+        }
+        test "succeeds for Producer" {
+            Expect.equal Producer.Group CreativeDirection "Producer group incorrect"
+        }
+        test "succeeds for Production Assistant" {
+            Expect.equal ProductionAssistant.Group Administration "Production Assistant group incorrect"
+        }
+        test "succeeds for Production Coordinator" {
+            Expect.equal ProductionCoordinator.Group Administration "Production Coordinator group incorrect"
+        }
+        test "succeeds for Remote Recording Engineer" {
+            Expect.equal RemoteRecordingEngineer.Group AudioProduction "Remote Recording Engineer group incorrect"
+        }
+        test "succeeds for Reporter" {
+            Expect.equal Reporter.Group Cast "Reporter group incorrect"
+        }
+        test "succeeds for Researcher" {
+            Expect.equal Researcher.Group Writing "Researcher group incorrect"
+        }
+        test "succeeds for Sales Manager" {
+            Expect.equal SalesManager.Group Administration "Sales Manager group incorrect"
+        }
+        test "succeeds for Sales Representative" {
+            Expect.equal SalesRepresentative.Group Administration "Sales Representative group incorrect"
+        }
+        test "succeeds for Script Coordinator" {
+            Expect.equal ScriptCoordinator.Group Writing "Script Coordinator group incorrect"
+        }
+        test "succeeds for Script Editor" {
+            Expect.equal ScriptEditor.Group Writing "Script Editor group incorrect"
+        }
+        test "succeeds for Senior Producer" {
+            Expect.equal SeniorProducer.Group CreativeDirection "Senior Producer group incorrect"
+        }
+        test "succeeds for Social Media Manager" {
+            Expect.equal SocialMediaManager.Group Community "Social Media Manager group incorrect"
+        }
+        test "succeeds for Songwriter" {
+            Expect.equal Songwriter.Group Writing "Songwriter group incorrect"
+        }
+        test "succeeds for Sound Designer" {
+            Expect.equal SoundDesigner.Group AudioPostProduction "Sound Designer group incorrect"
+        }
+        test "succeeds for Story Editor" {
+            Expect.equal StoryEditor.Group Writing "Story Editor group incorrect"
+        }
+        test "succeeds for Studio Coordinator" {
+            Expect.equal StudioCoordinator.Group AudioProduction "Studio Coordinator group incorrect"
+        }
+        test "succeeds for Technical Director" {
+            Expect.equal TechnicalDirector.Group AudioProduction "Technical Director group incorrect"
+        }
+        test "succeeds for Technical Manager" {
+            Expect.equal TechnicalManager.Group AudioProduction "Technical Manager group incorrect"
+        }
+        test "succeeds for Theme Music" {
+            Expect.equal ThemeMusic.Group AudioPostProduction "Theme Music group incorrect"
+        }
+        test "succeeds for Transcriber" {
+            Expect.equal Transcriber.Group Writing "Transcriber group incorrect"
+        }
+        test "succeeds for Translator" {
+            Expect.equal Translator.Group Writing "Translator group incorrect"
+        }
+        test "succeeds for Video Editor" {
+            Expect.equal VideoEditor.Group VideoPostProduction "Video Editor group incorrect"
+        }
+        test "succeeds for Voice Actor" {
+            Expect.equal VoiceActor.Group Cast "Voice Actor group incorrect"
+        }
+        test "succeeds for Writer" {
+            Expect.equal Writer.Group Writing "Writer group incorrect"
+        }
+        test "succeeds for Writing Editor" {
+            Expect.equal WritingEditor.Group Writing "Writing Editor group incorrect"
+        }
+    ]
 ]
 
 /// Unit tests for the PodcastMedium type