Permalink
Browse files

[t/spec] a test for [%] (meta reduce modulo)

git-svn-id: http://svn.pugscode.org/pugs@24213 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 21768a7 commit 5d1999ee54e9e08246f72c87304e20114634ad5f moritz committed Dec 8, 2008
Showing with 2 additions and 1 deletion.
  1. +2 −1 S03-operators/reduce-metaop.t
@@ -1,7 +1,7 @@
use v6;
use Test;
# XXX not sure if plan is right :(
-plan 50;
+plan 51;
=begin pod
@@ -26,6 +26,7 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
is(([-] 1,2,3), (1-2-3), "[-] works");
is(([/] 12,4,3), (12/4/3), "[/] works");
is(([**] 2,2,3), (2**2**3), "[**] works");
+ is(([%] 13,7,4), (13%7%4), "[%] works");
#?rakudo 2 skip '[\...] meta ops'
is((~ [\+] @array), "5 2 9 9 10 1", "[\\+] works");

0 comments on commit 5d1999e

Please sign in to comment.