Changeset 22545 for t/spec/S03-operators/hyper.t

Timestamp:

10/08/08 22:02:00 (3 months ago)

Author:

moritz

Message:

[t/spec] some s/is_deeply/is/ in hyper.t. azawawi++ for noticing

Files:

• t/spec/S03-operators/hyper.t (modified) (5 diffs)

t/spec/S03-operators/hyper.t

@@ -183 +183 @@
         @r = -« ([1, 2], [3, [4, 5]]);
         my @e = ([-1, -2], [-3, [-4, -5]]);
-        is_deeply(~@r, ~@e, "distribution for unary prefix");
+        is(~@r, ~@e, "distribution for unary prefix");
 
         @r = -<< ([1, 2], [3, [4, 5]]);
         @e = ([-1, -2], [-3, [-4, -5]]);
-        is_deeply(~@r, ~@e, "distribution for unary prefix, ASCII");
+        is(~@r, ~@e, "distribution for unary prefix, ASCII");
 };
 
@@ -195 +195 @@
         try { @r»++ };
         my @e = ([2, 3], [4, [5, 6]]);
-        is_deeply(~@r, ~@e, "distribution for unary postfix autoincr", :todo);
+        is(~@r, ~@e, "distribution for unary postfix autoincr", :todo);
 
         @r = ([1, 2], [3, [4, 5]]);
         try { @r>>++ };
         @e = ([2, 3], [4, [5, 6]]);
-        is_deeply(~@r, ~@e, "distribution for unary postfix autoincr, ASCII", :todo);
+        is(~@r, ~@e, "distribution for unary postfix autoincr, ASCII", :todo);
 };
 
@@ -207 +207 @@
         @r = (1, 2, [3, 4]) »+« (4, 5, [6, 7]);
         my @e = (5, 7, [9, 11]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, same shape");
+        is(~@r, ~@e, "distribution for binary infix, same shape");
 
                                 
         @r = (1, 2, [3, 4]) >>+<< (4, 5, [6, 7]);
         @e = (5, 7, [9, 11]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, same shape, ASCII",
-                 );
+        is(~@r, ~@e, "distribution for binary infix, same shape, ASCII");
 
         @r = (1, 2, [3, 4]) »+« (5, 6, 7);
         @e = (6, 8, [10, 11]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, dimension upgrade",
-                 );
+        is(~@r, ~@e, "distribution for binary infix, dimension upgrade");
 
         @r = (1, 2, [3, 4]) >>+<< (5, 6, 7);
         @e = (6, 8, [10, 11]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, dimension upgrade, ASCII",
-                 );
+        is(~@r, ~@e, "distribution for binary infix, dimension upgrade, ASCII");
 
         @r = ([1, 2], 3) »+« (4, [5, 6]);
         @e = ([5, 6], [8, 9]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, S03 cross-upgrade",
-                 );
+        is(~@r, ~@e, "distribution for binary infix, S03 cross-upgrade");
 
         @r = ([1, 2], 3) >>+<< (4, [5, 6]);
         @e = ([5, 6], [8, 9]);
-        is_deeply(~@r, ~@e,
-                  "distribution for binary infix, S03 cross-upgrade, ASCII",
-                 );
+        is(~@r, ~@e, "distribution for binary infix, S03 cross-upgrade, ASCII");
 };
 
@@ -270 +259 @@
 =end todo unspecced
 
+#?pugs todo 'hyper ops'
 { # hyper dereferencing
     my @array = (
@@ -278 +268 @@
 
     my $full = join '', eval '@array>>.<key>';
-    is($full, 'valvalval', 'hyper-dereference an array',:todo);
+    is($full, 'valvalval', 'hyper-dereference an array');
 
     my $part = join '', eval '@array[0,1]>>.<key>';
-    is($part, 'valval', 'hyper-dereference an array slice',:todo);
+    is($part, 'valval', 'hyper-dereference an array slice');
 }