Merge branch '2-parse-text-to-ast' of https://github.com/X-R-G-B/koaky …

…into 2-parse-text-to-ast

.github/workflows/tests.yml

@@ -86,3 +86,9 @@ jobs:
             tests.log
           refresh-message-position: true
           message-id: tests-cicd
+
+      - name: Exit Status
+        run: |
+          if [ ${{ steps.failedTest.outputs.failedTest }} == 'true' ]; then
+            exit 1
+          fi

test/Spec.hs

@@ -3,19 +3,30 @@ import Test.Tasty.HUnit
 import Test.Tasty.Runners.Html
 
 import AST
+import TextToAST
 
 main :: IO ()
 main = defaultMainWithIngredients (htmlRunner : defaultIngredients) tests
 
 tests :: TestTree
-tests = testGroup "Tests" [unitTests]
+tests = testGroup "Tests" [unitTestsASTEqual, unitTestsASTParse]
 
-unitTests :: TestTree
-unitTests = testGroup "Unit tests"
+unitTestsASTEqual :: TestTree
+unitTestsASTEqual = testGroup "AST Equal Tests"
   [ testCase "Basic AST creation 0" $
-      assertEqual "define x 42" (Node "define" [Leaf (Symbol "x"), Leaf (Number 42)]) (Node "define" [Leaf (Symbol "x"), Leaf (Number 42)])
+      assertEqual "define x 42" (Node "define" (Just $ Leaf (Symbol "x")) (Just $ Leaf (Number 42))) (Node "define" (Just $ Leaf (Symbol "x")) (Just $ Leaf (Number 42)))
   , testCase "Basic AST creation 1" $
       assertEqual "foo" (Leaf (Symbol "foo")) (Leaf (Symbol "foo"))
   , testCase "Basic AST creation 2" $
       assertEqual "42" (Leaf (Number 42)) (Leaf (Number 42))
+  , testCase "Basic AST creation 3" $
+      assertEqual "#f" (Leaf (Boolean False)) (Leaf (Boolean False))
+  , testCase "Basic AST creation 4" $
+      assertEqual "#t" (Leaf (Boolean True)) (Leaf (Boolean True))
+  ]
+
+unitTestsASTParse :: TestTree
+unitTestsASTParse = testGroup "AST Parse Tests"
+  [ testCase "Basic AST creation 0" $
+      assertEqual (textToAST "(foo abc def hij)") (Just $ (Node "foo" (Leaf (Symbol "abc"))) (Varidadic (Leaf (Symbol "def") (Leaf (Symbol "hij")))))
   ]