Add new test to GradeSchoolTests. No formatting

exercism · Jan 6, 2024 · 6a0c771 · 6a0c771
1 parent 5d01788
commit 6a0c771
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/exercises/practice/grade-school/GradeSchoolTests.fs b/exercises/practice/grade-school/GradeSchoolTests.fs
@@ -139,3 +139,15 @@ let ``Students are sorted by name in a grade`` () =
         |> add "Jeff" 1
     grade 5 school |> should equal ["Bradley"; "Franklin"]
 
+[<Fact(Skip = "Remove this Skip property to run this test")>]
+let ``Students are sorted by grades and then by name in the roster even when school was not sorted``() =
+    let school =
+        seq {
+            1, [ "Anna"; "Charlie"; "Barb" ]
+            2, [ "Peter"; "Zoe"; "Alex" ]
+            3, [ "Jim" ]
+        }
+        |> Map.ofSeq
+    roster school
+    |> should equal [ "Anna"; "Barb"; "Charlie"; "Alex"; "Peter"; "Zoe"; "Jim" ]
+