Permalink
Browse files

[t/spec] group tests in hyper.t by Unicodeness to avoid too many fudg…

…e markers

git-svn-id: http://svn.pugscode.org/pugs@24227 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 57c1095 commit dcb67c2b16d35bb706a36d81f065de6db6739a93 moritz committed Dec 9, 2008
Showing with 21 additions and 50 deletions.
  1. +21 −50 S03-operators/hyper.t
View
@@ -19,86 +19,57 @@ my @e;
@r = (1, 2, 3) »+« (2, 4, 6);
@e = (3, 6, 9);
is(~@r, ~@e, "hyper-sum two arrays");
-}
-#?rakudo skip 'unicode hyper ops'
-{
+
@r = (1, 2, 3) »-« (2, 4, 6);
@e = (-1, -2, -3);
is(~@r, ~@e, "hyper-subtract two arrays");
+
+ @r = (1, 2, 3) »*« (2, 4, 6);
+ @e = (2, 8, 18);
+ is(~@r, ~@e, "hyper-multiply two arrays");
+
+ @r = (1, 2, 3) »x« (3, 2, 1);
+ @e = ('111', '22', '3');
+ is(~@r, ~@e, "hyper-x two arrays");
+
+ @r = (1, 2, 3) »xx« (3, 2, 1);
+ @e = ((1,1,1), (2,2), (3));
+ is(~@r, ~@e, "hyper-xx two arrays");
+
+ @r = (20, 40, 60) »/« (2, 5, 10);
+ @e = (10, 8, 6);
+ is(~@r, ~@e, "hyper-divide two arrays");
+
+ @r = (1, 2, 3) »+« (10, 20, 30) »*« (2, 3, 4);
+ @e = (21, 62, 123);
+ is(~@r, ~@e, "precedence - »+« vs »*«");
}
{
@r = (1, 2, 3) >>+<< (2, 4, 6);
@e = (3, 6, 9);
is(~@r, ~@e, "hyper-sum two arrays ASCII notation");
-}
-{
@r = (1, 2, 3) >>-<< (2, 4, 6);
@e = (-1, -2, -3);
is(~@r, ~@e, "hyper-subtract two arrays ASCII notation");
-}
-#?rakudo skip 'unicode hyper ops'
-{
- @r = (1, 2, 3) »*« (2, 4, 6);
- @e = (2, 8, 18);
- is(~@r, ~@e, "hyper-multiply two arrays");
-}
-
-{
@r = (1, 2, 3) >>*<< (2, 4, 6);
@e = (2, 8, 18);
is(~@r, ~@e, "hyper-multiply two arrays ASCII notation");
-}
-#?rakudo skip 'unicode hyper ops'
-{
- @r = (1, 2, 3) »x« (3, 2, 1);
- @e = ('111', '22', '3');
- is(~@r, ~@e, "hyper-x two arrays");
-}
-
-{
@r = (1, 2, 3) >>x<< (3, 2, 1);
@e = ('111', '22', '3');
is(~@r, ~@e, "hyper-x two arrays ASCII notation");
-}
-#?rakudo skip 'unicode hyper ops'
-{
- @r = (1, 2, 3) »xx« (3, 2, 1);
- @e = ((1,1,1), (2,2), (3));
- is(~@r, ~@e, "hyper-xx two arrays");
-}
-
-{
@r = (1, 2, 3) >>xx<< (3, 2, 1);
@e = ((1,1,1), (2,2), (3));
is(~@r, ~@e, "hyper-xx two arrays ASCII notation");
-}
-#?rakudo skip 'unicode hyper ops'
-{
- @r = (20, 40, 60) »/« (2, 5, 10);
- @e = (10, 8, 6);
- is(~@r, ~@e, "hyper-divide two arrays");
-}
-
-{
@r = (20, 40, 60) >>/<< (2, 5, 10);
@e = (10, 8, 6);
is(~@r, ~@e, "hyper-divide two arrays ASCII notation");
-}
-#?rakudo skip 'unicode hyper ops'
-{
- @r = (1, 2, 3) »+« (10, 20, 30) »*« (2, 3, 4);
- @e = (21, 62, 123);
- is(~@r, ~@e, "precedence - »+« vs »*«");
-}
-
-{
@r = (1, 2, 3) >>+<< (10, 20, 30) >>*<< (2, 3, 4);
@e = (21, 62, 123);
is(~@r, ~@e, "precedence - >>+<< vs >>*<< ASCII notation");

0 comments on commit dcb67c2

Please sign in to comment.