diff options
| author | Teddy Wing | 2022-05-25 01:39:35 +0200 |
|---|---|---|
| committer | Teddy Wing | 2022-05-25 01:43:06 +0200 |
| commit | ac4b0dc07c3b2ac710f51fa804068ee7a76f916f (patch) | |
| tree | ee0ffeede7ac0a5cb825a7844479f0b880d6ae10 /t/100-increment-decrement.t | |
| parent | 1c7000e9e25aba7406a09d3530e756cfc8e52386 (diff) | |
| download | readline-incdec-ac4b0dc07c3b2ac710f51fa804068ee7a76f916f.tar.bz2 | |
100-increment-decrement: Add tests for integers with leading zero
Diffstat (limited to 't/100-increment-decrement.t')
| -rw-r--r-- | t/100-increment-decrement.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t index eda27ca..50d76c5 100644 --- a/t/100-increment-decrement.t +++ b/t/100-increment-decrement.t @@ -44,6 +44,22 @@ is_deeply( 'increments the first integer' ); +@got = incdec::incdec('test 012 0', 1); +@want = ('test 013 0', 6); +is_deeply( + \@got, + \@want, + 'increments an integer with a leading zero' +); + +@got = incdec::incdec('test A-02 0', -1); +@want = ('test A-03 0', 7); +is_deeply( + \@got, + \@want, + 'increments a negative integer with a leading zero' +); + @got = incdec::incdec('test 12 0', 1, 6); @want = ('test 13 0', 5); is_deeply( |