Changeset 24157
- Timestamp:
- 12/05/08 08:43:25 (5 weeks ago)
- Location:
- t/spec
- Files:
-
- 4 modified
-
S02-magicals/dollar_bang.t (modified) (1 diff)
-
S03-operators/precedence.t (modified) (1 diff)
-
S12-class/attributes.t (modified) (1 diff)
-
S29-context/eval.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S02-magicals/dollar_bang.t
r24153 r24157 33 33 my @a; 34 34 try { foo(@a,@a) }; 35 #?rakudo skip 'Test $! for truthness'36 35 ok $!, 'Calling a subroutine with a nonmatching signature sets $!'; 37 36 ok !$called, 'The subroutine also was not called'; 38 37 39 #?rakudo skip 'unimpl $!'40 38 undefine $!; 41 39 try { 1 / 0 }; -
t/spec/S03-operators/precedence.t
r22919 r24157 70 70 ok((!(1 & 2 | 3) < 2), "ditto"); 71 71 ok(?((1 & 2 ^ 3) < 3), "and also ^"); 72 #?rakudo skip "Negate a junction (???)"73 72 ok( !(1 & 2 ^ 4) != 3, "blah blah blah"); 74 73 -
t/spec/S12-class/attributes.t
r22286 r24157 18 18 $c.x 19 19 } 20 #?rakudo 1 skip 'get_bool not implemented in exceptions'21 20 ok($!, 'no public accessor for private attribute'); 22 21 $c.init(); -
t/spec/S29-context/eval.t
r22515 r24157 44 44 45 45 # L<S04/Exception handlers/Perl 6's eval function only evaluates strings, not blocks.> 46 #?rakudo skip 'eval { block } is gone '47 46 dies_ok({eval {42}}, 'block eval is gone');
