feat(fsharp): m01-m06 util, model, rules, random, spawn, game, view with Expecto tests

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-29 00:49:42 +01:00
parent 183821737e
commit 9cbefeb2be
27 changed files with 851 additions and 6 deletions
@@ -0,0 +1,14 @@
+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")
+    ]