From 467e11edb38d0f9515d94d66c0a82f96a49a5ddd Mon Sep 17 00:00:00 2001 From: James Eversole Date: Sun, 29 Dec 2024 21:09:02 -0600 Subject: [PATCH] Updates to tests Uncomments a test for comment parsing behavior and removes a test for incomplete function definitions. --- test/Spec.hs | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/test/Spec.hs b/test/Spec.hs index 434e229..8587f76 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -68,12 +68,7 @@ lexerTests = testGroup "Lexer Tests" parserTests :: TestTree parserTests = testGroup "Parser Tests" - [-- testCase "Error when parsing incomplete definitions" $ do - -- let input = lexTricu "x = " - -- case (runParser parseExpression "" input) of - -- Left _ -> return () - -- Right _ -> assertFailure "Expected failure on invalid input" - testCase "Error when assigning a value to T" $ do + [ testCase "Error when assigning a value to T" $ do let input = lexTricu "t = x" case (runParser parseExpression "" input) of Left _ -> return () @@ -152,10 +147,10 @@ parserTests = testGroup "Parser Tests" let input = "(t) -- (t) -- (t)" expect = [TLeaf] parseTricu input @?= expect --- , testCase "Comments with no terms" $ do --- let input = unlines ["-- (t)", "(t t)"] --- expect = [] --- parseTricu input @?= expect + , testCase "Comments with no terms" $ do + let input = unlines ["-- (t)", "(t t)"] + expect = [SEmpty,SApp TLeaf TLeaf] + parseTricu input @?= expect ] evaluationTests :: TestTree