- Timestamp:
- 09/27/08 22:29:30 (2 months ago)
- Files:
-
- 1 modified
-
t/spec/S03-operators/increment.t (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S03-operators/increment.t
r22433 r22438 19 19 my $a = 2147483647; 20 20 my $c=$a++; 21 #?rakudo todo 'detect integer overflow/underflow' 21 22 is($a, 2147483648, "var incremented after post-autoincrement"); 22 23 is($c, 2147483647, "during post-autoincrement return value is not yet incremented"); … … 24 25 $a = 2147483647; 25 26 $c=++$a; 27 #?rakudo 2 todo 'detect integer overflow/underflow' 26 28 is($a, 2147483648, "var incremented after pre-autoincrement"); 27 29 is($c, 2147483648, "during pre-autoincrement return value is incremented"); … … 33 35 $a = -2147483648; 34 36 $c=$a--; 37 #?rakudo todo 'detect integer overflow/underflow' 35 38 is($a, -2147483649, "var decremented after post-autodecrement"); 36 39 is($c, -2147483648, "during post-autodecrement return value is not yet decremented"); … … 38 41 $a = -2147483648; 39 42 $c=--$a; 43 #?rakudo 2 todo 'detect integer overflow/underflow' 40 44 is($a, -2147483649, "var decremented after pre-autodecrement"); 41 45 is($c, -2147483649, "during pre-autodecrement return value is decremented"); … … 48 52 $a = -$a; 49 53 $c=$a--; 54 #?rakudo todo 'detect integer overflow/underflow' 50 55 is($a, -2147483649, "post-decrement negative value"); 51 56 … … 53 58 $a = -$a; 54 59 $c=--$a; 60 #?rakudo todo 'detect integer overflow/underflow' 55 61 is($a, -2147483649, "pre-decrement negative value"); 56 62 … … 63 69 my $b = -$a; 64 70 $c=$b--; 65 is($b, ((-$a)-1), "commpare -- to -1 op with same origin var"); 71 72 #?rakudo todo 'detect integer overflow/underflow' 73 is($b, ((-$a)-1), "compare -- to -1 op with same origin var"); 66 74 is($a, 2147483648, "make sure origin var remains unchanged"); 67 75 … … 69 77 $b = -$a; 70 78 $c=--$b; 79 #?rakudo todo 'detect integer overflow/underflow' 71 80 is($b, ((-$a)-1), "same thing with predecremenet"); 72 81
