diff options
author | Jim Meyering <jim@meyering.net> | 2004-06-02 08:50:42 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2004-06-02 08:50:42 +0000 |
commit | 27d6dec23d7a7b9f856ed7ac995e9483be5ea9d7 (patch) | |
tree | 6137622eabc2ec7321281df26c85d8ce1fcfa05a /tests/tr/Test.pm | |
parent | c18814a7366b82b8cdb6b5c64aeddb0560555db2 (diff) | |
download | coreutils-27d6dec23d7a7b9f856ed7ac995e9483be5ea9d7.tar.xz |
New tests bs-055, bs-at-end, repeat-Compl.
Fix comment for range-a-a.
Diffstat (limited to 'tests/tr/Test.pm')
-rwxr-xr-x | tests/tr/Test.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm index a225b6440..d91c662a0 100755 --- a/tests/tr/Test.pm +++ b/tests/tr/Test.pm @@ -68,7 +68,7 @@ my @tv = ( ['y', '-d ' . q|'a-z'|, 'abc $code', ' $', 0], ['z', '-ds ' . q|'a-z' '$.'|, 'a.b.c $$$$code\\', '. $\\', 0], -# Make sure that a-a is accepted, even though POSIX 1001.2 says it is illegal. +# Make sure that a-a is accepted. ['range-a-a', q|'a-a' 'z'|, 'abc', 'zbc', 0], # ['null', q|'a' ''''|, '', '', 1], @@ -84,6 +84,8 @@ my @tv = ( ['o-rep-2', q|'[b*010]cd' '[a*7]BC[x*]'|, 'bcd', 'BCx', 0], ['esc', q|'a\-z' 'A-Z'|, 'abc-z', 'AbcBC', 0], +['bs-055', q|'a\055b' def|, "a\055b", 'def', 0], +['bs-at-end', q|'\' x|, "\\", 'x', 0], # # From Ross @@ -108,6 +110,7 @@ my @tv = ( ['repeat-0', q|abc '[b*0]'|, 'abcd', 'bbbd', 0], ['repeat-000', q|abc '[b*00000000000000000000]'|, 'abcd', 'bbbd', 0], ['repeat-compl', '-c ' . q|'[a*65536]\n' '[b*]'|, 'abcd', 'abbb', 0], +['repeat-Compl', '-C ' . q|'[a*65536]\n' '[b*]'|, 'abcd', 'abbb', 0], ); |