X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=af600f3ccc8df303c91a2729577e7b44fd7fbcd7;hp=28ca476e643fa113eaa2774b4de6801107319c07;hb=45d799349e635f1a99e3974e4504a43d5a7aaf33;hpb=0ab024f487647f99eb000345c29c2f8e9b52a200 diff --git a/tests/regression.tc b/tests/regression.tc index 28ca476..af600f3 100644 --- a/tests/regression.tc +++ b/tests/regression.tc @@ -348,13 +348,14 @@ testcase { s = Expr Expr = [0-9]++ - | Plus:: left:Expra "+" right:Expr + | Plus:: (left::Expra) "+" (right::Expr) Expra = Foo:: ("a" | "b") } testcase { input "aaaaa"; - s = top:: z q:"a"* z + s = top:: z (q::"a"*) z z = a:: "a" -} \ No newline at end of file +} +