grade school tests (#1255)

* darts: sync tests

* diffie-hellman: sync tests

* grains: sync tests

* roman-numerals: sync tests

* poker: sync tests

* grade-school: sync tests

exercises/practice/grade-school/GradeSchoolTests.fs

@@ -139,15 +139,3 @@ 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" ]
-

generators/Generators.fs

@@ -792,6 +792,7 @@ type GradeSchool() =
 
     override _.PropertiesUsedAsSutParameter testCase =
         base.PropertiesUsedAsSutParameter testCase |> List.filter (fun x -> x <> "students")
+
 type Grains() =
     inherit ExerciseGenerator()