aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2022-08-21 16:27:34 +0100
committerJuan J. Martinez <jjm@usebox.net>2022-08-21 16:27:34 +0100
commit903a16174d048af222aff124558d73c0ac5e6080 (patch)
treebd8b0fff1a49d38af72fd75cdbe00cd68551a3bf
parent14386b44f3b5c5f10fa40e6666e90aef30a5fff2 (diff)
downloadmicro-lang-hs-903a16174d048af222aff124558d73c0ac5e6080.tar.gz
micro-lang-hs-903a16174d048af222aff124558d73c0ac5e6080.zip
Order
-rw-r--r--test/Language.hs10
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"