diff options
Diffstat (limited to 'tests/misc/tac')
-rwxr-xr-x | tests/misc/tac | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/misc/tac b/tests/misc/tac index 208791a4a..9aa9ebaaf 100755 --- a/tests/misc/tac +++ b/tests/misc/tac @@ -33,6 +33,38 @@ my @Tests = ( ['segfault', '-r', {IN=>"a\n"}, {IN=>"b\n"}, {OUT=>"a\nb\n"}], ['segfault2','-r', {IN=>"a\nb\n"}, {IN=>"1\n2\n"}, {OUT=>"b\na\n2\n1\n"}], + + ['basic-0', '', {IN=>""}, {OUT=>""}], + ['basic-a', '', {IN=>"a"}, {OUT=>"a"}], + ['basic-b', '', {IN=>"\n"}, {OUT=>"\n"}], + ['basic-c', '', {IN=>"a\n"}, {OUT=>"a\n"}], + ['basic-d', '', {IN=>"a\nb"}, {OUT=>"ba\n"}], + ['basic-e', '', {IN=>"a\nb\n"}, {OUT=>"b\na\n"}], + ['basic-f', '', {IN=>"1234567\n8\n"}, {OUT=>"8\n1234567\n"}], + ['basic-g', '', {IN=>"12345678\n9\n"}, {OUT=>"9\n12345678\n"}], + ['basic-h', '', {IN=>"123456\n8\n"}, {OUT=>"8\n123456\n"}], + ['basic-i', '', {IN=>"12345\n8\n"}, {OUT=>"8\n12345\n"}], + ['basic-j', '', {IN=>"1234\n8\n"}, {OUT=>"8\n1234\n"}], + ['basic-k', '', {IN=>"123\n8\n"}, {OUT=>"8\n123\n"}], + + ['opt-b', '-b', {IN=>"\na\nb\nc"}, {OUT=>"\nc\nb\na"}], + ['opt-s', '-s:', {IN=>"a:b:c:"}, {OUT=>"c:b:a:"}], + ['opt-sb', qw(-s : -b), {IN=>":a:b:c"}, {OUT=>":c:b:a"}], + ['opt-r', qw(-r -s '\._+'), + {IN=>"1._2.__3.___4._"}, + {OUT=>"4._3.___2.__1._"}], + + ['opt-r2', qw(-r -s '\._+'), + {IN=>"a.___b.__1._2.__3.___4._"}, + {OUT=>"4._3.___2.__1._b.__a.___"}], + + # This gave incorrect output (.___4._2.__3._1) with tac-1.22. + ['opt-br', qw(-b -r -s '\._+'), + {IN=>"._1._2.__3.___4"}, {OUT=>".___4.__3._2._1"}], + + ['opt-br2', qw(-b -r -s '\._+'), + {IN=>".__x.___y.____z._1._2.__3.___4"}, + {OUT=>".___4.__3._2._1.____z.___y.__x"}], ); # @Tests = triple_test \@Tests; |