add 2 more tsts

diff --git a/tests/tac/Test.pm b/tests/tac/Test.pm
index e73f162daefd3cf49d548d9fdae27dba9a8ba62f..cf5ca92ca97888b0ecfc199d18060dba16e4fc97 100644 (file)
--- a/tests/tac/Test.pm
+++ b/tests/tac/Test.pm
@@ -31,8 +31,14 @@ my @tv = (
 ['opt-sb', '-s : -b', ":a:b:c", ":c:b:a", 0],
 ['opt-r',     "-r -s '\\._+'", "1._2.__3.___4._", "4._3.___2.__1._", 0],
 
+['opt-r2',    "-r -s '\\._+'", "a.___b.__1._2.__3.___4._",
+                               "4._3.___2.__1._b.__a.___", 0],
+
 # This gave incorrect output (.___4._2.__3._1) with tac-1.22.
 ['opt-br', "-b -r -s '\\._+'", "._1._2.__3.___4", ".___4.__3._2._1", 0],
+
+['opt-br2', "-b -r -s '\\._+'", ".__x.___y.____z._1._2.__3.___4",
+                                ".___4.__3._2._1.____z.___y.__x", 0],
 );
 
 sub test_vector