Bowling Game Kata Tests

// Bowling Game Kata Tests

open NUnit.Framework
open Bowling
open StateMonad
                                         
[<TestFixture>]
type BowlingTests =
   new() = {}
      
   [<Test>]
   member x.gutterGame() =
       Assert.AreEqual(0, Score(RollMany 20 0) |> Total)
      
   [<Test>]
   member x.allOnes() =
       Assert.AreEqual(20, Score(RollMany 20 1) |> Total)
      
   [<Test>]
   member x.oneSpare() = 
       Assert.AreEqual(16, Score(state {  do! RollSpare
                                          do! Roll 3
                                          do! RollMany 17 0 }) |> Total)                                    
   [<Test>]
   member x.oneStrike() =
       Assert.AreEqual(24, Score(state { do! RollStrike
                                         do! Roll 3
                                         do! Roll 4
                                         do! RollMany 16 0 }) |> Total)                                     
   [<Test>]
   member x.perfectGame() =
       Assert.AreEqual(300, Score(state { do! RollMany 12 10 }) |> Total)