Changeset 22583 for t

Timestamp:

10/11/08 17:41:16 (6 weeks ago)

Author:

moritz

Message:

[t/spec] tests for [\$op] with right assoc $op

Files:

• t/spec/S03-operators/reduce-metaop.t (modified) (2 diffs)

t/spec/S03-operators/reduce-metaop.t

@@ -1 +1 @@
 use v6;
 use Test;
-plan 50;
+plan 52;
 
 =begin pod
@@ -55 +55 @@
     is ([~] [\!=]  4, 5, 6),   "1 1 1",   "[\\!=] works (1)";
     is ([~] [\!=]  4, 5, 4),   "1 0 0",   "[\\!=] works (2)";
+    is ([~] [\**]  1, 2, 3),   "3 8 1",   "[\\**] (right assoc) works (1)";
+    is ([~] [\**]  3, 2, 0),   "0 1 3",   "[\\**] (right assoc) works (2)";
 }