incdec.pm: Add some tests and ideas for incrementing substrings

Substrings and direction.

2 files changed, 22 insertions, 1 deletions

diff --git a/incdec.pm b/incdec.pm
index 96b28c8..3c229a4 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -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;