Use reserved bang sym for env result

2025-01-27 08:46:40 -06:00
parent f71f88dce3
commit 79317bf4e3
6 changed files with 15 additions and 15 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -70,9 +70,9 @@ lexer = testGroup "Lexer Tests"
        Right i -> i @?= expect

  , testCase "Error when using invalid characters in identifiers" $ do
-        case (runParser tricuLexer "" "__result = 5") of
+        case (runParser tricuLexer "" "!result = 5") of
          Left _ -> return ()
-          Right _ -> assertFailure "Expected failure when trying to assign the value of __result"
+          Right _ -> assertFailure "Expected failure when trying to assign the value of !result"
  ]

 parser :: TestTree