blob: 227aa0c522921a11ca4d32a47b8a9449c14abc2b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
]
|
