Changeset 8700

Show
Ignore:
Timestamp:
01/16/06 13:14:46 (3 years ago)
Author:
audreyt
Message:

* t/operators/inc.t: all passes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/operators/inc.t

    r6031 r8700  
    7676 
    7777$a = undef; 
    78 $a++; 
    79 is($a, 0, 'undef++ == 0',:todo); 
     78is($a++, 0, 'undef++ == 0'); 
    8079 
    8180$a = undef; 
    82 $a--; 
    83 is($a, undef, 'undef-- is undefined',:todo); 
     81is($a--, undef, 'undef-- is undefined'); 
    8482 
    8583$a = 'x'; 
    … …  
    114112  my @array = (42); 
    115113 
    116   is(@array[+foo()]++, 43, "++ evaluates the expression to increment only once (1)", :todo<bug>); 
    117   is($was_in_foo,       1, "++ evaluates the expression to increment only once (2)", :todo<bug>); 
     114  is(++@array[+foo()], 43, "++ evaluates the expression to increment only once (1)"); 
     115  is($was_in_foo,       1, "++ evaluates the expression to increment only once (2)"); 
    118116}