diff options
| author | sanine <sanine.not@pm.me> | 2023-11-21 10:11:19 -0600 |
|---|---|---|
| committer | sanine <sanine.not@pm.me> | 2023-11-21 10:11:19 -0600 |
| commit | d128c42a96110eceb3a82ff26263388efff20623 (patch) | |
| tree | 3c9f44b50dc395b7d952663c10bb545bb521be27 /test/MindTest.hs | |
| parent | f9fc4d26ec5fca9ee175c8a6fbcdd0fa36f10947 (diff) | |
initial stack configuration
Diffstat (limited to 'test/MindTest.hs')
| -rw-r--r-- | test/MindTest.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test/MindTest.hs b/test/MindTest.hs new file mode 100644 index 0000000..227aa0c --- /dev/null +++ b/test/MindTest.hs @@ -0,0 +1,16 @@ +module MindTest (suite) where + +import Test.Tasty +import Test.Tasty.HUnit + +import Mind + +suite :: TestTree +suite = testGroup "mind tests" $ + [ neuronIndexTests + ] + +neuronIndexTests :: TestTree +neuronIndexTests = testGroup "neuron index tests" $ + [ testCase "get input index" $ getNeuronIndex (Input 4) @?= 4 + ] |