diff options
-rw-r--r-- | tests/ls/Makefile.am | 20 | ||||
-rw-r--r-- | tests/ls/Test.pm | 27 |
2 files changed, 30 insertions, 17 deletions
diff --git a/tests/ls/Makefile.am b/tests/ls/Makefile.am index 6b950d0d1..5193e7784 100644 --- a/tests/ls/Makefile.am +++ b/tests/ls/Makefile.am @@ -2,23 +2,9 @@ ##test-files-begin x = ls -explicit = -maint_gen = obs-c1.I obs-c1.X obs-c2.I obs-c2.X obs-c3.I obs-c3.X obs-c4.I \ -obs-c4.X obs-c5.I obs-c5.X obs-l1.I obs-l1.X obs-l2.I obs-l2.X obs-l3.I \ -obs-l3.X obs-l4.I obs-l4.X obs-l5.I obs-l5.X obs-1.I obs-1.X obs-2.I obs-2.X \ -obs-3.I obs-3.X obs-4.I obs-4.X obs-5.I obs-5.X obsx-1.I obsx-1.X obsx-2.I \ -obsx-2.X obs-l.I obs-l.X err-1.I err-1.X err-2.I err-2.X err-3.I err-3.X \ -err-4.I err-4.X err-5.I err-5.X err-6.I err-6.X minus-1.I minus-1.X minus-2.I \ -minus-2.X n-1.I n-1.X n-2.I n-2.X n-3.I n-3.X n-4.I n-4.X n-4a.I n-4a.X n-5.I \ -n-5.X n-5a.I n-5a.X n-5b.I n-5b.X -run_gen = obs-c1.O obs-c1.E obs-c2.O obs-c2.E obs-c3.O obs-c3.E obs-c4.O \ -obs-c4.E obs-c5.O obs-c5.E obs-l1.O obs-l1.E obs-l2.O obs-l2.E obs-l3.O \ -obs-l3.E obs-l4.O obs-l4.E obs-l5.O obs-l5.E obs-1.O obs-1.E obs-2.O obs-2.E \ -obs-3.O obs-3.E obs-4.O obs-4.E obs-5.O obs-5.E obsx-1.O obsx-1.E obsx-2.O \ -obsx-2.E obs-l.O obs-l.E err-1.O err-1.E err-2.O err-2.E err-3.O err-3.E \ -err-4.O err-4.E err-5.O err-5.E err-6.O err-6.E minus-1.O minus-1.E minus-2.O \ -minus-2.E n-1.O n-1.E n-2.O n-2.E n-3.O n-3.E n-4.O n-4.E n-4a.O n-4a.E n-5.O \ -n-5.E n-5a.O n-5a.E n-5b.O n-5b.E +explicit = '""""" "' b +maint_gen = q1.X q2.X +run_gen = q1.O q1.E q2.O q2.E ##test-files-end EXTRA_DIST = mk-script.pl Test.pm $x-tests $(explicit) $(maint_gen) diff --git a/tests/ls/Test.pm b/tests/ls/Test.pm new file mode 100644 index 000000000..8d5d8d4db --- /dev/null +++ b/tests/ls/Test.pm @@ -0,0 +1,27 @@ +package Test; +require 5.002; +use strict; + +$Test::input_via_default = {FILE => 0}; + +my @tv = ( +# test name, options, input, expected output, expected return code +# +['q1', '-b', sub{('""""" "', 'b')}, '"""""\\ " b', 0], +['q2', '-b -Q', sub{('""""" "', 'b')}, '\\"\\"\\"\\"\\"\\ \\" b', 0], +); + +sub test_vector +{ + my $t; + foreach $t (@tv) + { + # FIXME: append newline + my ($test_name, $flags, $in, $exp, $ret) = @$t; + + } + + return @tv; +} + +1; |