feat(fsharp): m09 input/app/runtime and m10 extensions with tests

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-29 00:56:27 +01:00
parent e27372f017
commit 55f8b0b30f
14 changed files with 435 additions and 0 deletions
@@ -0,0 +1,12 @@
+module Snake.Tests.M09Input
+
+open Expecto
+open Snake
+open Snake.Tests.Fixtures
+
+[<Tests>]
+let tests =
+    testList "M09 Input" [
+        yield! fixtureTests "m09-input" "keyToAction" (fun c ->
+            Expect.equal (Input.keyToAction (str (arg 0 c))) (opt action (expected c)) "keyToAction")
+    ]