Add some tests for #125289, masak++

Raku · May 31, 2015 · c2effba · c2effba
1 parent 7d6a177
commit c2effba
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 366;
+plan 369;
 
 =begin pod
 
@@ -383,4 +383,12 @@ ok ([+]) == 0, 'argumentless [+] parses';
         'non-associative operator "[leg]" can not be used as reduction operator';
 }
 
+# RT #125289
+{
+    is [:a],  [a => True],  'does  [:a] parse ok and give the right value';
+    is [:a,], [a => True],  'does [:a,] parse ok and give the right value';
+    is [:!a], [a => False], 'does [:!a] parse ok and give the right value';
+}
+
+
 # vim: ft=perl6