diff options
| -rw-r--r-- | tests/tac/Test.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/tac/Test.pm b/tests/tac/Test.pm index e73f162da..cf5ca92ca 100644 --- 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 |