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

Substrings and direction.

1 files changed, 18 insertions, 0 deletions

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;