Browse files

[t/spec] Add simple tests for [div] and [mod].

git-svn-id: http://svn.pugscode.org/pugs@31183 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 5ea7067 commit 9b6c25afcd33da8d9d13abf832f27e6eba0450cf colomon committed Jun 8, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 S03-metaops/reduce.t
View
4 S03-metaops/reduce.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 86;
+plan 88;
=begin pod
@@ -25,8 +25,10 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
is(([*] 1,2,3), (1*2*3), "[*] works");
is(([-] 1,2,3), (1-2-3), "[-] works");
is(([/] 12,4,3), (12/4/3), "[/] works");
+ is(([div] 12,4,3), (12 div 4 div 3), "[div] works");
is(([**] 2,2,3), (2**2**3), "[**] works");
is(([%] 13,7,4), (13%7%4), "[%] works");
+ is(([mod] 13,7,4), (13 mod 7 mod 4), "[mod] works");
is((~ [\+] @array), "5 2 9 9 10 1", "[\\+] works");
is((~ [\-] 1, 2, 3), "1 -1 -4", "[\\-] works");

0 comments on commit 9b6c25a

Please sign in to comment.