initial commit

test/Spec.hs

@@ -0,0 +1,27 @@
+import Control.Lens
+import OneCommand.Command
+import OneCommand.Generator (generateCommandChainGroup, pos)
+import OneCommand.PosUtil (Vec3i (Vec3i), vec)
+import Test.Hspec
+
+main :: IO ()
+main = hspec $ do
+  describe "command generation" $ do
+    it "generate command normally" $ do
+      let myChains =
+            [ CommandChain
+                { commands = ["1", "2"],
+                  chainType = RepeatingChain
+                },
+              CommandChain
+                { commands = ["3", "4"],
+                  chainType = ImpulseChain
+                }
+            ]
+
+      let cmds = generateCommandChainGroup myChains
+
+      (head cmds ^. pos . vec) `shouldBe` Vec3i 0 0 0
+      (cmds !! 1 ^. pos . vec) `shouldBe` Vec3i 0 0 1
+      (cmds !! 2 ^. pos . vec) `shouldBe` Vec3i 0 2 0
+      (cmds !! 3 ^. pos . vec) `shouldBe` Vec3i 0 2 1