diff options
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 + ] |