Changeset 19199

Show
Ignore:
Timestamp:
12/12/07 20:43:16 (12 months ago)
Author:
ferreira
Message:

r186@dracma: perl | 2007-12-12 17:36:40 -0200
added basic tests for boolean infix operators

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/operators/operator.t

    r19197 r19199  
    88=cut 
    99 
    10 plan 29; 
     10plan 41; 
    1111 
    1212my $str1 = "foo"; 
    … …  
    8787is("@rv[]", "2 4 6 8", 'hyper-add'); 
    8888 
     89{ # L<S03/Changes to Perl 5 operators/ "?| is a logical OR"> 
     90  # work with pure Bool's 
     91  ok( False?|False == False, '?| works with Bools'); 
     92  ok( False?|True  == True,  '?| works with Bools'); 
     93  ok( True ?|False == True,  '?| works with Bools'); 
     94  ok( True ?|True  == True,  '?| works with Bools'); 
     95} 
     96{ # L<S03/Changes to Perl 5 operators/ "?& is a logical AND"> 
     97  # work with pure Bool's 
     98  ok( False?&False == False, '?& works with Bools'); 
     99  ok( False?&True  == False, '?& works with Bools'); 
     100  ok( True ?&False == False, '?& works with Bools'); 
     101  ok( True ?&True  == True,  '?& works with Bools'); 
     102 
     103} 
     104{ ## L<S03/Changes to Perl 5 operators/ "?^ is a logical XOR"> 
     105  # work with pure Bool's 
     106  ok( False?^False == False, '?^ works with Bools'); 
     107  ok( False?^True  == True,  '?^ works with Bools'); 
     108  ok( True ?^False == True,  '?^ works with Bools'); 
     109  ok( True ?^True  == False, '?^ works with Bools'); 
     110 
     111}