diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-27 16:41:27 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | fe5d1ec1b76b8cb42359324030e701a719847a50 (patch) | |
| tree | aa37852acd83ffd38d00ec65285665bec68c7f12 /test/Spec.hs | |
| parent | 2d9588f5b309aa6b5114d8719bfe3d0b17abbcff (diff) | |
Add shadowing symbol error
Diffstat (limited to 'test/Spec.hs')
| -rw-r--r-- | test/Spec.hs | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 6e9104e..3d1ad3a 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -18,10 +18,8 @@ tokenizeTests = testGroup "tokenize" [ parseTests = testGroup "parse" [ do got <- expectSuccessL $ parse (map makeNonsenseToken ["(", "+", "1", "2", ")"]) - let expected = [wrapAST $ ASTFunctionCall - [ wrapAST $ ASTSymbol "+", - wrapAST $ ASTInteger 1, - wrapAST $ ASTInteger 2 ]] + let expected = [astFunctionCall + [ astSymbol "+", astInteger 1, astInteger 2 ]] assertEqual "" got expected , do got <- expectErrorL $ parse (map makeNonsenseToken ["(", "+", "1", "2"]) @@ -31,11 +29,9 @@ parseTests = testGroup "parse" [ evaluateTests = testGroup "evaluate" [ do let env = M.fromList [builtinAdd2] :: Env - (gotEnv, gotAST) <- expectSuccessL $ evaluate env (wrapAST $ ASTFunctionCall - [wrapAST $ ASTSymbol "+", - wrapAST $ ASTInteger 1, - wrapAST $ ASTInteger 2]) - let expectedAST = wrapAST $ ASTInteger 3 + (gotEnv, gotAST) <- expectSuccessL $ evaluate env (astFunctionCall + [astSymbol "+", astInteger 1, astInteger 2]) + let expectedAST = astInteger 3 assertEqual "" gotAST expectedAST assertEqual "" (M.keys gotEnv) (M.keys env) ] @@ -46,7 +42,7 @@ e2eTests = testGroup "e2e" [ (gotEnv, gotASTs) <- expectSuccessL $ runInlineScript "<test>" env script1 let expectedEnvKeys = ["-", "sub2"] assertEqual "" (M.keys gotEnv) expectedEnvKeys - assertEqual "" (last gotASTs) (wrapAST $ ASTInteger 1) + assertEqual "" (last gotASTs) (astInteger 1) ] testGroup label xs = TestLabel label $ TestList $ map TestCase xs |