13 lines
301 B
FSharp
13 lines
301 B
FSharp
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")
|
|
]
|