Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fudge for niecza.

  • Loading branch information...
commit 9872f1f734496c2a90fc8aad0e55fa848ecc6a9c 1 parent 21e85ed
colomon authored December 19, 2011
7  S02-types/pair.t
@@ -13,6 +13,7 @@ isa_ok($pair, Pair);
13 13
 # get key and value from the pair as many ways as possible
14 14
 
15 15
 #?rakudo 2 skip 'method($invocant:) syntax missing'
  16
+#?niecza 2 skip 'Invocant handling is NYI'
16 17
 is(key($pair:), 'foo', 'got the right key($pair:)');
17 18
 is(value($pair:), 'bar', 'got the right value($pair:)');
18 19
 
@@ -146,6 +147,7 @@ sub test3 (%h){
146 147
     for %h.pairs -> $pair {
147 148
         isa_ok($pair,Pair);
148 149
         isa_ok($pair[0], Pair, 'sub test3: $pair[0] is $pair');
  150
+        #?niecza skip "Failure NYI"
149 151
         ok $pair[1] ~~ Failure, 'sub test3: $pair[1] is failure';
150 152
     }
151 153
 }
@@ -264,17 +266,21 @@ Note, "non-chaining binary" was later renamed to "structural infix".
264 266
   #?pugs 2 todo 'bug'
265 267
   lives_ok { $pair.key = "KEY" }, "setting .key does not die";
266 268
   is $pair.key,          "KEY",   "setting .key actually changes the key";
  269
+  #?niecza todo "setting .key changes original val!"
267 270
   is $key,               "key",   "setting .key does not change the original var";
268 271
 
269 272
   #?pugs 2 todo 'bug'
270 273
   lives_ok { $pair.value = "VAL" }, "setting .value does not die";
271 274
   is $pair.value,          "VAL",   "setting .value actually changes the value";
  275
+  #?niecza todo "setting .key changes original val!"
272 276
   is $val,                 "val",   "setting .value does not change the original var";
273 277
 }
274 278
 
275 279
 ##  These tests really belong in a different test file -- probably
276 280
 ##  something in S06.  --pmichaud
277 281
 # L<S06/Named arguments/In other words :$when is shorthand for :when($when)>
  282
+#
  283
+#?niecza skip "eqv NYI for Pair"
278 284
 {
279 285
     my $item = 'bar';
280 286
     my $pair = (:$item);
@@ -289,6 +295,7 @@ Note, "non-chaining binary" was later renamed to "structural infix".
289 295
     ok($pair eqv (hash => %hash), ':%foo syntax works');
290 296
 }
291 297
 
  298
+#?niecza skip "eqv NYI for Pair"
292 299
 {
293 300
     my sub code {return 42}
294 301
     $pair = (:&code);
1  S05-capture/caps.t
@@ -13,6 +13,7 @@ sub ca(@x) {
13 13
 }
14 14
 
15 15
 ok 'a b c d' ~~ /(.*)/, 'basic sanity';
  16
+#?niecza 2 skip "Positional NYI"
16 17
 ok $/.caps ~~ Positional, '$/.caps returns something Positional';
17 18
 #?rakudo todo 'return type of .chunks'
18 19
 isa_ok $/.chunks ~~ Positional, '$/.chunks returns something Positional';

0 notes on commit 9872f1f

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