diff options
author | Jim Meyering <jim@meyering.net> | 2000-01-22 09:42:14 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-01-22 09:42:14 +0000 |
commit | 6df5aa20d7a672599a44235bc4f364100e65f097 (patch) | |
tree | 85eb962ade2c239140d19c3fc282da9aca08b9c7 /tests | |
parent | d29115d80ff019206aef4ff71368086ffcef8f5d (diff) | |
download | coreutils-6df5aa20d7a672599a44235bc4f364100e65f097.tar.xz |
(o-rep-1, o-rep-2): New tests.
Diffstat (limited to 'tests')
-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 |