100-increment-decrement: Add a more complex leading zero test

1 files changed, 8 insertions, 0 deletions

diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t
index d83a35a..ee5a849 100644
--- a/t/100-increment-decrement.t
+++ b/t/100-increment-decrement.t
@@ -228,6 +228,14 @@ is_deeply(
 	'decrements the second integer by 2 with point at position 9 backward'
 );
 
+@got = incdec::incdec('test_99_A_-_03_[a30df7cf]', 1, 15, 1);
+@want = ('test_99_A_-_04_[a30df7cf]', 13);
+is_deeply(
+	\@got,
+	\@want,
+	'increments the second zero-prefixed integer by 1 with point at position 15 backward'
+);
+
 @got = incdec::incdec("sed -n '39,54p' Alice\'s\ Adventures\ in\ Wonderland.txt ", 1, 3, 1);
 @want = ("sed -n '40,54p' Alice\'s\ Adventures\ in\ Wonderland.txt ", 8);
 is_deeply(