New tests bs-055, bs-at-end, repeat-Compl.

Fix comment for range-a-a.

diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm
index a225b644088a1584ebc52dddff83ba20ebb4407a..d91c662a0f3c4ff66e82bab4ac73724e0cf84f7c 100755 (executable)
--- 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],
 
 );