From 62ed279562192822002f3d9fd207596124a9e2de Mon Sep 17 00:00:00 2001 From: Erik Schierboom Date: Tue, 23 Apr 2024 13:52:10 +0200 Subject: [PATCH] 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 | 12 ------------ generators/Generators.fs | 1 + 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/exercises/practice/grade-school/GradeSchoolTests.fs b/exercises/practice/grade-school/GradeSchoolTests.fs index e6ce81929..19ddf3b8b 100644 --- a/exercises/practice/grade-school/GradeSchoolTests.fs +++ b/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"] -[] -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" ] - \ No newline at end of file diff --git a/generators/Generators.fs b/generators/Generators.fs index 4031d0a0b..c587380fb 100644 --- a/generators/Generators.fs +++ b/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()