diff options
| -rwxr-xr-x | tests/tr/Test.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm index 7dc5c0203..38eaa9d73 100755 --- a/tests/tr/Test.pm +++ b/tests/tr/Test.pm @@ -79,6 +79,10 @@ my @tv = ( ['rep-1', q|'[:*3][:digit:]' 'a-m'|, ':1239', 'cefgm', 0], ['rep-2', q|'a[b*512]c' '1[x*]2'|, 'abc', '1x2', 0], ['rep-3', q|'a[b*513]c' '1[x*]2'|, 'abc', '1x2', 0], +# Another couple octal repeat count tests. +['o-rep-1', q|'[b*08]' '[x*]'|, '', '', 1], +['o-rep-2', q|'[b*010]cd' '[a*7]BC[x*]'|, 'bcd', 'BCx', 0], + ['esc', q|'a\-z' 'A-Z'|, 'abc-z', 'AbcBC', 0], # @@ -93,6 +97,7 @@ my @tv = ( ['ross-4', '-dcs ' . q|'[:alnum:]' '[:digit:]'|, '', '', 0], ['ross-5', '-dc ' . q|'[:lower:]'|, '', '', 0], ['ross-6', '-dc ' . q|'[:upper:]'|, '', '', 0], + ); sub test_vector |