Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

git-svn-id: http://svn.pugscode.org/pugs@22545 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 05f901ad75219d459e11597b35091e5966b79646 1 parent a5a51d7
authored October 08, 2008

Showing 1 changed file with 13 additions and 23 deletions. Show diff stats Hide diff stats

  1. 36  S03-operators/hyper.t
36  S03-operators/hyper.t
@@ -182,11 +182,11 @@ plan 56;
182 182
         my @r;
183 183
         @r = -« ([1, 2], [3, [4, 5]]);
184 184
         my @e = ([-1, -2], [-3, [-4, -5]]);
185  
-        is_deeply(~@r, ~@e, "distribution for unary prefix");
  185
+        is(~@r, ~@e, "distribution for unary prefix");
186 186
 
187 187
         @r = -<< ([1, 2], [3, [4, 5]]);
188 188
         @e = ([-1, -2], [-3, [-4, -5]]);
189  
-        is_deeply(~@r, ~@e, "distribution for unary prefix, ASCII");
  189
+        is(~@r, ~@e, "distribution for unary prefix, ASCII");
190 190
 };
191 191
 
192 192
 { # distribution for unary postfix autoincrement
@@ -194,51 +194,40 @@ plan 56;
194 194
         @r = ([1, 2], [3, [4, 5]]);
195 195
         try { @r»++ };
196 196
         my @e = ([2, 3], [4, [5, 6]]);
197  
-        is_deeply(~@r, ~@e, "distribution for unary postfix autoincr", :todo);
  197
+        is(~@r, ~@e, "distribution for unary postfix autoincr", :todo);
198 198
 
199 199
         @r = ([1, 2], [3, [4, 5]]);
200 200
         try { @r>>++ };
201 201
         @e = ([2, 3], [4, [5, 6]]);
202  
-        is_deeply(~@r, ~@e, "distribution for unary postfix autoincr, ASCII", :todo);
  202
+        is(~@r, ~@e, "distribution for unary postfix autoincr, ASCII", :todo);
203 203
 };
204 204
 
205 205
 { # distribution for binary infix
206 206
         my @r;
207 207
         @r = (1, 2, [3, 4]) »+« (4, 5, [6, 7]);
208 208
         my @e = (5, 7, [9, 11]);
209  
-        is_deeply(~@r, ~@e,
210  
-                  "distribution for binary infix, same shape");
  209
+        is(~@r, ~@e, "distribution for binary infix, same shape");
211 210
 
212 211
 				
213 212
         @r = (1, 2, [3, 4]) >>+<< (4, 5, [6, 7]);
214 213
         @e = (5, 7, [9, 11]);
215  
-        is_deeply(~@r, ~@e,
216  
-                  "distribution for binary infix, same shape, ASCII",
217  
-                 );
  214
+        is(~@r, ~@e, "distribution for binary infix, same shape, ASCII");
218 215
 
219 216
         @r = (1, 2, [3, 4]) »+« (5, 6, 7);
220 217
         @e = (6, 8, [10, 11]);
221  
-        is_deeply(~@r, ~@e,
222  
-                  "distribution for binary infix, dimension upgrade",
223  
-                 );
  218
+        is(~@r, ~@e, "distribution for binary infix, dimension upgrade");
224 219
 
225 220
         @r = (1, 2, [3, 4]) >>+<< (5, 6, 7);
226 221
         @e = (6, 8, [10, 11]);
227  
-        is_deeply(~@r, ~@e,
228  
-                  "distribution for binary infix, dimension upgrade, ASCII",
229  
-                 );
  222
+        is(~@r, ~@e, "distribution for binary infix, dimension upgrade, ASCII");
230 223
 
231 224
         @r = ([1, 2], 3) »+« (4, [5, 6]);
232 225
         @e = ([5, 6], [8, 9]);
233  
-        is_deeply(~@r, ~@e,
234  
-                  "distribution for binary infix, S03 cross-upgrade",
235  
-                 );
  226
+        is(~@r, ~@e, "distribution for binary infix, S03 cross-upgrade");
236 227
 
237 228
         @r = ([1, 2], 3) >>+<< (4, [5, 6]);
238 229
         @e = ([5, 6], [8, 9]);
239  
-        is_deeply(~@r, ~@e,
240  
-                  "distribution for binary infix, S03 cross-upgrade, ASCII",
241  
-                 );
  230
+        is(~@r, ~@e, "distribution for binary infix, S03 cross-upgrade, ASCII");
242 231
 };
243 232
 
244 233
 { # regression test, ensure that hyper works on arrays
@@ -269,6 +258,7 @@ plan 56;
269 258
 
270 259
 =end todo unspecced
271 260
 
  261
+#?pugs todo 'hyper ops'
272 262
 { # hyper dereferencing
273 263
     my @array = (
274 264
         { key => 'val' },
@@ -277,10 +267,10 @@ plan 56;
277 267
     );
278 268
 
279 269
     my $full = join '', eval '@array>>.<key>';
280  
-    is($full, 'valvalval', 'hyper-dereference an array',:todo);
  270
+    is($full, 'valvalval', 'hyper-dereference an array');
281 271
 
282 272
     my $part = join '', eval '@array[0,1]>>.<key>';
283  
-    is($part, 'valval', 'hyper-dereference an array slice',:todo);
  273
+    is($part, 'valval', 'hyper-dereference an array slice');
284 274
 }
285 275
 
286 276
 { # junction hyper -- regression?

0 notes on commit 05f901a

Please sign in to comment.
Something went wrong with that request. Please try again.