(fowler-1): New test case.

diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm
index d91c662a0f3c4ff66e82bab4ac73724e0cf84f7c..0cd96a9c200c61c9666a875d13d9cfbc0e41772e 100755 (executable)
--- a/tests/tr/Test.pm
+++ b/tests/tr/Test.pm
@@ -112,6 +112,9 @@ my @tv = (
 ['repeat-compl', '-c ' . q|'[a*65536]\n' '[b*]'|, 'abcd', 'abbb', 0],
 ['repeat-Compl', '-C ' . q|'[a*65536]\n' '[b*]'|, 'abcd', 'abbb', 0],
 
+# From Glenn Fowler.
+['fowler-1', q|ah -H|, 'aha', '-H-', 0],
+
 );
 
 sub test_vector