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")
    ]