15 lines
365 B
FSharp
15 lines
365 B
FSharp
module Snake.Tests.M06View
|
|
|
|
open Expecto
|
|
open Snake
|
|
open Snake.Tests.Fixtures
|
|
|
|
[<Tests>]
|
|
let tests =
|
|
testList "M06 View" [
|
|
testCase "CELL is 20 pixels" (fun () -> Expect.equal View.CELL 20 "CELL")
|
|
|
|
yield! fixtureTests "m06-view" "view" (fun c ->
|
|
Expect.equal (View.view (gameState (arg 0 c))) (list shape (expected c)) "view")
|
|
]
|