diff options
| -rw-r--r-- | src/Parser.hs | 1 | ||||
| -rw-r--r-- | test/asset/parser/tags.et | 10 | ||||
| -rw-r--r-- | test/script/parser.et | 3 |
3 files changed, 14 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 619543f..5ad1b1a 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -153,6 +153,7 @@ parseTag _ = label "tag definition" $ do cmn <- gets testCurrentModuleName let expr = SomeExpr $ Pure $ Tag cmn name modify $ \s -> s { testVars = ( name, ( GlobalVarName cmn name, someExprType expr )) : testVars s } + scn return ( name, expr ) parseExport :: TestParser [ Toplevel ] diff --git a/test/asset/parser/tags.et b/test/asset/parser/tags.et new file mode 100644 index 0000000..178295f --- /dev/null +++ b/test/asset/parser/tags.et @@ -0,0 +1,10 @@ +tag SomeTag + +tag OtherTag + +test First: + tag: SomeTag + tag: OtherTag + let x = 1 + local: + let y = 1 diff --git a/test/script/parser.et b/test/script/parser.et index 1a00bc8..908431e 100644 --- a/test/script/parser.et +++ b/test/script/parser.et @@ -17,3 +17,6 @@ test Parser: send "load ${scripts.path}/function-fail.et" expect /load-failed parse-error/ + + send "load ${scripts.path}/tags.et" + expect /load-done/ |