diff --git a/src/MyWebLog.Tests/Domain/PodcastTypesTests.fs b/src/MyWebLog.Tests/Domain/PodcastTypesTests.fs index 01c2149..98748f3 100644 --- a/src/MyWebLog.Tests/Domain/PodcastTypesTests.fs +++ b/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