diff options
| -rw-r--r-- | incdec.pm | 5 | ||||
| -rw-r--r-- | t/100-increment-decrement.t | 18 |
2 files changed, 22 insertions, 1 deletions
@@ -4,7 +4,10 @@ use warnings; package incdec; sub incdec { - my ($line) = @_; + my ($line, $point_position, $is_backward) = @_; + + $point_position ||= 0; + $is_backward ||= 0; $line =~ s/(\d+)/$1+1/e; diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t index d3b1e13..9420f3a 100644 --- a/t/100-increment-decrement.t +++ b/t/100-increment-decrement.t @@ -13,4 +13,22 @@ is( 'increments an integer' ); +is( + incdec::incdec('test 12 0'), + 'test 13 0', + 'increments the first integer' +); + +is( + incdec::incdec('test 12 0', 6), + 'test 13 0', + 'increments the first integer with point at position 6' +); + +is( + incdec::incdec('test 12 0', 7), + 'test 12 1', + 'increments the second integer with point at position 7' +); + done_testing; |