Changeset 22892 for t

Show
Ignore:
Timestamp:
11/06/08 06:12:11 (2 months ago)
Author:
pmichaud
Message:

[spec]: Fudge some tests for rakudo in S03-junctions/boolean-context.t

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S03-junctions/boolean-context.t

    r22884 r22892  
    5757} 
    5858 
    59 ok 0|undef == 0, '0|undef == 0 in boolean context'; 
     59ok ?(0|undef == 0), '0|undef == 0 in boolean context'; 
    6060 
    6161my $message1 = 'boolean context collapses junctions'; 
    6262my $message2 = '...so that they\'re not junctions anymore'; 
     63#?DOES 1 
     64#?rakudo 4 skip 'junction collapses' 
    6365ok ?(Bool::True & Bool::False)    ==  Bool::False, $message1; 
    6466ok ?(Bool::True & Bool::False)    !~~ Junction,    $message2; 
    6567ok !(Bool::True & Bool::False)    ==  Bool::True,  $message1; 
    6668ok !(Bool::True & Bool::False)    !~~ Junction,    $message2; 
     69#?rakudo 4 skip 'named unary as function call' 
    6770ok true(Bool::True & Bool::False) ==  Bool::False, $message1; 
    6871ok true(Bool::True & Bool::False) !~~ Junction,    $message2;