diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-21 16:27:34 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-21 16:27:34 +0100 |
| commit | 903a16174d048af222aff124558d73c0ac5e6080 (patch) | |
| tree | bd8b0fff1a49d38af72fd75cdbe00cd68551a3bf /test | |
| parent | 14386b44f3b5c5f10fa40e6666e90aef30a5fff2 (diff) | |
| download | micro-lang-hs-903a16174d048af222aff124558d73c0ac5e6080.tar.gz micro-lang-hs-903a16174d048af222aff124558d73c0ac5e6080.zip | |
Order
Diffstat (limited to 'test')
| -rw-r--r-- | test/Language.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/Language.hs b/test/Language.hs index a6a5aa6..448e6ad 100644 --- a/test/Language.hs +++ b/test/Language.hs @@ -32,6 +32,11 @@ expectError input etyp = do Right _ -> assertFailure "expected error, didn't happen" testCase1 = + TestLabel "parse module" $ + TestCase $ + assertAst "module main" [A.Module "main" $ newPos "test" 1 1] + +testCase2 = TestLabel "parse binary number" $ TestCase $ assertAst @@ -40,11 +45,6 @@ testCase1 = A.Num 32 $ newPos "test" 2 1 ] -testCase2 = - TestLabel "parse module" $ - TestCase $ - assertAst "module main" [A.Module "main" $ newPos "test" 1 1] - testCase3 = TestLabel "parse a function" |