Resolves issue with parsing comments

This commit is contained in:
James Eversole
2024-12-29 20:29:41 -06:00
parent b86ff6e9b8
commit a8f72290a2
7 changed files with 82 additions and 69 deletions

View File

@ -25,7 +25,6 @@ tests :: TestTree
tests = testGroup "Tricu Tests"
[ lexerTests
, parserTests
, integrationTests
, evaluationTests
, lambdaEvalTests
, libraryTests
@ -159,18 +158,6 @@ parserTests = testGroup "Parser Tests"
-- parseTricu input @?= expect
]
integrationTests :: TestTree
integrationTests = testGroup "Integration Tests"
[ testCase "Combine lexer and parser" $ do
let input = "x = t t t"
expect = SFunc "x" [] (SApp (SApp TLeaf TLeaf) TLeaf)
parseSingle input @?= expect
, testCase "Complex Tree Calculus expression" $ do
let input = "t (t t t) t"
expect = SApp (SApp TLeaf (SApp (SApp TLeaf TLeaf) TLeaf)) TLeaf
parseSingle input @?= expect
]
evaluationTests :: TestTree
evaluationTests = testGroup "Evaluation Tests"
[ testCase "Evaluate single Leaf" $ do
@ -317,7 +304,7 @@ libraryTests = testGroup "Library Tests"
let input = "s (t) (t) (t)"
env = evalTricu library (parseTricu input)
result env @?= Fork Leaf (Stem Leaf)
, testCase "SKK == I" $ do -- Tests for fully expanded I form
, testCase "SKK == I (fully expanded)" $ do
let input = "s k k"
env = evalTricu library (parseTricu input)
result env @?= Fork (Stem (Stem Leaf)) (Stem Leaf)