Merge pull request #6 from lizmat/master

Remove the most obvious bitrot
zag · Aug 13, 2018 · 16c7673 · 16c7673
2 parents d4216b5 + 3c9872a
commit 16c7673
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/lib/Plosurin.pm b/lib/Plosurin.pm
@@ -67,10 +67,10 @@ grammar Plosurin::Template {
     rule command_import {
         'import'  <attribute> ** 1..2 }
     rule expression { [ \w+ ['=='||'<'||'>'] \w+ || <variable>] }
-    rule expression_list { [\w+] ** ',' }
+    rule expression_list { [\w+]* %% ',' }
     token variable { '$' \w+ }
 #    rule pair  { <string> ':'  <value>     }
-    rule attribute { (\w+) '=' '"' (<-['"']>+) '"' }
+    rule attribute { (\w+) '=' '"' (<-["]>+) '"' }
 
 }
 

diff --git a/t/t01.t b/t/t01.t
@@ -27,6 +27,6 @@ my @lexer_tests =
 
 for @lexer_tests -> $template, $check, $test_name {
     my $res = Plosurin::Template.parse($template,  :actions(Plosurin::TActions.new));
-    is_deeply [ $/.ast».dumper],$check, $test_name ?? $test_name !! $template;
+    is-deeply [ $/.ast».dumper],$check, $test_name ?? $test_name !! $template;
 }
 
diff --git a/t/t02.t b/t/t02.t
@@ -32,5 +32,5 @@ my $txt= '{namespace rname.sample}
 
 my $res = Plosurin::Grammar.parse($txt, :actions(Plosurin::Actions.new ));
 ok $res, 'grammar';
-is_deeply [$/.ast.values».WHAT».perl], ["Template", "Template", "Template"], 'objects';
+is-deeply [$/.ast.values».WHAT».perl], ["Template", "Template", "Template"], 'objects';