Changeset 22884 for t

Show
Ignore:
Timestamp:
11/04/08 21:29:25 (2 months ago)
Author:
masak
Message:

[t/spec/S03-junctions/boolean-context.t]
* added tests checking for the following Pugs bug:
** <masak> pugs: say (?(1&0)).perl
** <p6eval> pugs: OUTPUT[(Bool::False & Bool::True)␤]
* (should really collapse to Bool::False)

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r22872 r22884  
    11use v6; 
    22use Test; 
    3 plan 37; 
     3plan 45; 
    44 
    55# L<S03/Junctive operators/> 
    … …  
    5858 
    5959ok 0|undef == 0, '0|undef == 0 in boolean context'; 
     60 
     61my $message1 = 'boolean context collapses junctions'; 
     62my $message2 = '...so that they\'re not junctions anymore'; 
     63ok ?(Bool::True & Bool::False)    ==  Bool::False, $message1; 
     64ok ?(Bool::True & Bool::False)    !~~ Junction,    $message2; 
     65ok !(Bool::True & Bool::False)    ==  Bool::True,  $message1; 
     66ok !(Bool::True & Bool::False)    !~~ Junction,    $message2; 
     67ok true(Bool::True & Bool::False) ==  Bool::False, $message1; 
     68ok true(Bool::True & Bool::False) !~~ Junction,    $message2; 
     69ok not(Bool::True & Bool::False)  ==  Bool::True,  $message1; 
     70ok not(Bool::True & Bool::False)  !~~ Junction,    $message2;