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