Sha256: f690060a6992659db224bce1fffdb962e1c1737f08061a509c190129be8fd5ee

Contents?: true

Size: 1.95 KB

Versions: 240

Compression:

Stored size: 1.95 KB

Contents

module GradeSchoolTest

open NUnit.Framework
open GradeSchool

[<Test>]
let ``Empty school has an empty roster`` () =
    let school = empty
    Assert.That(roster school, Is.Empty)

[<Test>]
[<Ignore("Remove to run test")>]
let ``Adding a student adds them to the roster for the given grade`` () =
    let school = empty |> add "Aimee" 2
    let expected = ["Aimee"]
    Assert.That(grade 2 school, Is.EqualTo(expected))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Adding more students to the same grade adds them to the roster`` () =
    let school = 
        empty
        |> add "Blair" 2
        |> add "James" 2
        |> add "Paul" 2
    let expected = ["Blair"; "James"; "Paul"]
    Assert.That(grade 2 school, Is.EqualTo(expected))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Adding students to different grades adds them to the roster`` () =
    let school = 
        empty
        |> add "Chelsea" 3
        |> add "Logan" 7
    Assert.That(grade 3 school, Is.EqualTo(["Chelsea"]))
    Assert.That(grade 7 school, Is.EqualTo(["Logan"]))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Grade returns the students in that grade in alphabetical order`` () =
    let school = 
        empty
        |> add "Franklin" 5
        |> add "Bradley" 5
        |> add "Jeff" 1
    let expected = ["Bradley"; "Franklin"]
    Assert.That(grade 5 school, Is.EqualTo(expected))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Grade returns an empty list if there are no students in that grade`` () =
    let school = empty
    Assert.That(grade 1 school, Is.EqualTo([]))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Student names and grades in roster are sorted`` () =
    let school =
        empty        
        |> add "Jennifer" 4
        |> add "Kareem" 6
        |> add "Christopher" 4
        |> add "Kyle" 3

    let expected = 
        [(3, ["Kyle"]);
         (4, ["Christopher"; "Jennifer"]);
         (6, ["Kareem"])]

    Assert.That(roster school, Is.EqualTo(expected))

Version data entries

240 entries across 240 versions & 1 rubygems

Version Path
trackler-2.1.0.24 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.23 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.22 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.21 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.20 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.19 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.18 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.17 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.16 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.15 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.14 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.13 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.12 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.11 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.10 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.9 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.8 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.7 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.6 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs
trackler-2.1.0.5 tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs