Permalink
Browse files

[t/spec] Fix triangle form of reduce metaop tests.

git-svn-id: http://svn.pugscode.org/pugs@25381 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent da95286 commit 5cb1e9f9ea7d37f6ac87e93451b2ab8b1d5cd1a7 bacek committed Feb 18, 2009
Showing with 10 additions and 10 deletions.
  1. +10 −10 S03-operators/reduce-metaop.t
@@ -78,16 +78,16 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
#?rakudo skip '[\...] meta ops'
{
- is ([~] [\<] 1, 2, 3, 4), "1 1 1 1", "[\\<] works (1)";
- is ([~] [\<] 1, 3, 2, 4), "1 1 0 0", "[\\<] works (2)";
- is ([~] [\>] 4, 3, 2, 1), "1 1 1 1", "[\\>] works (1)";
- is ([~] [\>] 4, 2, 3, 1), "1 1 0 0", "[\\>] works (2)";
- is ([~] [\==] 4, 4, 4), "1 1 1", "[\\==] works (1)";
- is ([~] [\==] 4, 5, 4), "1 0 0", "[\\==] works (2)";
- 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)";
+ is (~ [\<] 1, 2, 3, 4), "1 1 1 1", "[\\<] works (1)";
+ is (~ [\<] 1, 3, 2, 4), "1 1 0 0", "[\\<] works (2)";
+ is (~ [\>] 4, 3, 2, 1), "1 1 1 1", "[\\>] works (1)";
+ is (~ [\>] 4, 2, 3, 1), "1 1 0 0", "[\\>] works (2)";
+ is (~ [\==] 4, 4, 4), "1 1 1", "[\\==] works (1)";
+ is (~ [\==] 4, 5, 4), "1 0 0", "[\\==] works (2)";
+ 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)";
}
#?rakudo skip '[//], [orelse]'

0 comments on commit 5cb1e9f

Please sign in to comment.