module KindergartenGardenTests open FsUnit.Xunit open Xunit open KindergartenGarden [] let ``Partial garden - garden with single student`` () = let student = "Alice" let diagram = "RC\nGG" let expected = [Plant.Radishes; Plant.Clover; Plant.Grass; Plant.Grass] plants diagram student |> should equal expected [] let ``Partial garden - different garden with single student`` () = let student = "Alice" let diagram = "VC\nRC" let expected = [Plant.Violets; Plant.Clover; Plant.Radishes; Plant.Clover] plants diagram student |> should equal expected [] let ``Partial garden - garden with two students`` () = let student = "Bob" let diagram = "VVCG\nVVRC" let expected = [Plant.Clover; Plant.Grass; Plant.Radishes; Plant.Clover] plants diagram student |> should equal expected [] let ``Partial garden - multiple students for the same garden with three students - second student's garden`` () = let student = "Bob" let diagram = "VVCCGG\nVVCCGG" let expected = [Plant.Clover; Plant.Clover; Plant.Clover; Plant.Clover] plants diagram student |> should equal expected [] let ``Partial garden - multiple students for the same garden with three students - third student's garden`` () = let student = "Charlie" let diagram = "VVCCGG\nVVCCGG" let expected = [Plant.Grass; Plant.Grass; Plant.Grass; Plant.Grass] plants diagram student |> should equal expected [] let ``Full garden - for Alice, first student's garden`` () = let student = "Alice" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Violets; Plant.Radishes; Plant.Violets; Plant.Radishes] plants diagram student |> should equal expected [] let ``Full garden - for Bob, second student's garden`` () = let student = "Bob" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Clover; Plant.Grass; Plant.Clover; Plant.Clover] plants diagram student |> should equal expected [] let ``Full garden - for Charlie`` () = let student = "Charlie" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Violets; Plant.Violets; Plant.Clover; Plant.Grass] plants diagram student |> should equal expected [] let ``Full garden - for David`` () = let student = "David" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Radishes; Plant.Violets; Plant.Clover; Plant.Radishes] plants diagram student |> should equal expected [] let ``Full garden - for Eve`` () = let student = "Eve" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Clover; Plant.Grass; Plant.Radishes; Plant.Grass] plants diagram student |> should equal expected [] let ``Full garden - for Fred`` () = let student = "Fred" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Grass; Plant.Clover; Plant.Violets; Plant.Clover] plants diagram student |> should equal expected [] let ``Full garden - for Ginny`` () = let student = "Ginny" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Clover; Plant.Grass; Plant.Grass; Plant.Clover] plants diagram student |> should equal expected [] let ``Full garden - for Harriet`` () = let student = "Harriet" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Violets; Plant.Radishes; Plant.Radishes; Plant.Violets] plants diagram student |> should equal expected [] let ``Full garden - for Ileana`` () = let student = "Ileana" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Grass; Plant.Clover; Plant.Violets; Plant.Clover] plants diagram student |> should equal expected [] let ``Full garden - for Joseph`` () = let student = "Joseph" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Violets; Plant.Clover; Plant.Violets; Plant.Grass] plants diagram student |> should equal expected [] let ``Full garden - for Kincaid, second to last student's garden`` () = let student = "Kincaid" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Grass; Plant.Clover; Plant.Clover; Plant.Grass] plants diagram student |> should equal expected [] let ``Full garden - for Larry, last student's garden`` () = let student = "Larry" let diagram = "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" let expected = [Plant.Grass; Plant.Violets; Plant.Clover; Plant.Violets] plants diagram student |> should equal expected