Skip to content

Commit

Permalink
Revert "Test pre- and postfix autoincrement on Num"
Browse files Browse the repository at this point in the history
This reverts commit c8889fc.

Turns out those ops were already covered in commit
2a3cdb2 / file S02-types/num.t
  • Loading branch information
moritz committed Oct 15, 2016
1 parent c8889fc commit c64cd86
Showing 1 changed file with 1 addition and 14 deletions.
15 changes: 1 addition & 14 deletions S03-operators/autoincrement.t
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ use Test;
# Tests for auto-increment and auto-decrement operators
# originally from Perl 5, by way of t/operators/auto.t

plan 88;
plan 80;

#L<S03/Autoincrement precedence>

Expand Down Expand Up @@ -48,19 +48,6 @@ is(0 + ++%z{0} - 1, $base, '0 + ++%z{0} - 1');
is(0 + --%z{0} + 0, $base, '0 + --%z{0} + 0');
is(%z{0}, $base, '%z{0}');

# Incrementing and decrementing Num
{
my Num $x = 42e0;
is $x++, 42e0, 'result of Num++';
is $x, 43e0, 'side effect of Num++';
is $x--, 43e0, 'result of Num--';
is $x, 42e0, 'side effect of Num+--';
is ++$x, 43e0, 'result of ++Num';
is $x, 43e0, 'side effect of ++Num';
is --$x, 42e0, 'result of --Num';
is $x, 42e0, 'side effect of --Num';
}

# Increment of a Str
#L<S03/Autoincrement precedence/Increment of a>

Expand Down

0 comments on commit c64cd86

Please sign in to comment.