From d128c42a96110eceb3a82ff26263388efff20623 Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Tue, 21 Nov 2023 10:11:19 -0600
Subject: initial stack configuration

---
 test/MindTest.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 test/MindTest.hs

(limited to 'test/MindTest.hs')

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
+  ]
-- 
cgit v1.2.1