diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cut/Makefile.am | 34 | ||||
| -rwxr-xr-x | tests/cut/Test.pm | 62 | ||||
| -rwxr-xr-x | tests/cut/build-script.pl | 80 |
3 files changed, 176 insertions, 0 deletions
diff --git a/tests/cut/Makefile.am b/tests/cut/Makefile.am new file mode 100644 index 000000000..0be09be84 --- /dev/null +++ b/tests/cut/Makefile.am @@ -0,0 +1,34 @@ +## Process this file with automake to produce Makefile.in. + +AUTOMAKE_OPTIONS = 1.1c + +x = cut +t = t1 t2 t3 t4 t5 t6 t7 t8 t9 tA tB tC tD ta tb tc td te tf tg th \ +ti tj tk tl tm tn to tp tq tr ts tt tu tv tw tx ty tz + +in = $(t:=.in) +exp = $(t:=.exp) +out = $(t:=.out) +err = $(t:=.err) + +EXTRA_DIST = build-script.pl Test.pm $x-tests $(in) $(exp) +noinst_SCRIPTS = $x-tests build-script + +PERL = @PERL@ +editpl = sed -e 's,@''PERL''@,$(PERL),g' -e 's,@''srcdir''@,@srcdir@,g' + +TESTS = $x-tests + +$x-tests: @MAINT@build-script Test.pm + ./build-script ../../src/$x > $@.n + mv $@.n $@ + chmod 755 $@ + +SUFFIXES = .pl + +.pl: + rm -f $@ $@.tmp + $(editpl) $< > $@.tmp && chmod +x $@.tmp && mv $@.tmp $@ + +MAINTAINERCLEANFILES = $x-tests $(in) $(exp) +CLEANFILES = $(out) $(err) diff --git a/tests/cut/Test.pm b/tests/cut/Test.pm new file mode 100755 index 000000000..bfc047fae --- /dev/null +++ b/tests/cut/Test.pm @@ -0,0 +1,62 @@ +package Test; +require 5.002; +use strict; + +my $nl = "\n"; +@Test::t = ( +# test input flags expected output expected return code +# +['1', "a:b:c$nl", '-d: -f1,3-', "a:c\n", 0], +['2', "a:b:c\n", '-d: -f1,3-', "a:c\n", 0], +['3', "a:b:c$nl", '-d: -f2-', "b:c\n", 0], +['4', "a:b:c$nl", '-d: -f4', "\n", 0], +['5', "", '-d: -f4', "", 0], +['6', "123$nl", '-c4', "\n", 0], +['7', "123", '-c4', "\n", 0], +['8', "123\n1", '-c4', "\n\n", 0], +['9', "", '-c4', "", 0], +['a', "a:b:c$nl", '-s -d: -f3-', "c\n", 0], +['b', "a:b:c$nl", '-s -d: -f2,3', "b:c\n", 0], +['c', "a:b:c$nl", '-s -d: -f1,3', "a:c\n", 0], +# Trailing colon should not be output +['d', "a:b:c:$nl", '-s -d: -f1,3', "a:c\n", 0], +['e', "a:b:c:$nl", '-s -d: -f3-', "c:\n", 0], +['f', "a:b:c:$nl", '-s -d: -f3-4', "c:\n", 0], +['g', "a:b:c:$nl", '-s -d: -f3,4', "c:\n", 0], +# Make sure -s suppresses non-delimited lines +['h', "abc\n", '-s -d: -f2,3', "", 0], +# +['i', ":::\n", '-d: -f1-3', "::\n", 0], +['j', ":::\n", '-d: -f1-4', ":::\n", 0], +['k', ":::\n", '-d: -f2-3', ":\n", 0], +['l', ":::\n", '-d: -f2-4', "::\n", 0], +['m', ":::\n", '-s -d: -f1-3', "::\n", 0], +['n', ":::\n", '-s -d: -f1-4', ":::\n", 0], +['o', ":::\n", '-s -d: -f2-3', ":\n", 0], +['p', ":::\n", '-s -d: -f2-4', "::\n", 0], +['q', ":::\n:\n", '-s -d: -f2-4', "::\n\n", 0], +['r', ":::\n:1\n", '-s -d: -f2-4', "::\n1\n", 0], +['s', ":::\n:a\n", '-s -d: -f1-4', ":::\n:a\n", 0], +['t', ":::\n:1\n", '-s -d: -f3-', ":\n\n", 0], +# Make sure it handles empty input properly, with and without -s. +['u', "", '-s -f3-', "", 0], +['v', "", '-f3-', "", 0], +# Make sure it handles empty input properly. +['w', "", '-b 1', "", 0], +['x', ":\n", '-s -d: -f2-4', "\n", 0], +# Errors +# -s may be used only with -f +['y', ":\n", '-s -b4', "", 1], +# You must specify bytes or fields (or chars) +['z', ":\n", '', "", 1], +# Empty field list +['A', ":\n", '-f \'\'', "", 1], +# Missing field list +['B', ":\n", '-f', "", 1], +# Empty byte list +['C', ":\n", '-b \'\'', "", 1], +# Missing byte list +['D', ":\n", '-b', "", 1], +); + +1; diff --git a/tests/cut/build-script.pl b/tests/cut/build-script.pl new file mode 100755 index 000000000..0dd8e303f --- /dev/null +++ b/tests/cut/build-script.pl @@ -0,0 +1,80 @@ +#! @PERL@ -w +# -*- perl -*- +# @configure_input@ + +require 5.002; + +BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; } +use strict; +use Test; + +$| = 1; + +my $xx = $ARGV[0]; + +print <<EOF; +#! /bin/sh +# This script was generated automatically by build-script. +case \$# in + 0) xx='$xx';; + *) xx="\$1";; +esac +test "\$VERBOSE" && echo=echo || echo=: +\$echo testing program: \$xx +errors=0 +test "\$srcdir" || srcdir=. +test "\$VERBOSE" && \$xx --version 2> /dev/null +EOF + +my %seen; + +my $test_vector; +foreach $test_vector (@Test::t) + { + my ($test_name, $input, $flags, $expected, $e_ret_code) + = @{$test_vector}; + die "$0: $.: duplicate test name \`$test_name'\n" + if (defined ($seen{$test_name})); + $seen{$test_name} = 1; + my $in = "t$test_name.in"; + my $exp_name = "t$test_name.exp"; + my $out = "t$test_name.out"; + + open (IN, ">$in") || die "$0: $in: $!\n"; + print IN $input; + close (IN) || die "$0: $in: $!\n"; + open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n"; + print EXP $expected; + close (EXP) || die "$0: $exp_name: $!\n"; + + my $err_output = "t$test_name.err"; + my $cmd = "\$xx $flags \$srcdir/$in > $out 2> $err_output"; + $exp_name = "\$srcdir/$exp_name"; + print <<EOF ; +$cmd 2> /dev/null +code=\$? +if test \$code != $e_ret_code ; then + echo Test $test_name failed: cut return code \$code differs from expected value $e_ret_code 1>&2 + errors=`expr \$errors + 1` +else + cmp $out $exp_name + case \$? in + 0) if test "\$VERBOSE" ; then echo passed $test_name; fi ;; # equal files + 1) echo Test $test_name failed: files $out and $exp_name differ 1>&2; + errors=`expr \$errors + 1` ;; + 2) echo Test $test_name may have failed. 1>&2; + echo The command \"cmp $out $exp_name\" failed. 1>&2 ; + errors=`expr \$errors + 1` ;; + esac +fi +EOF + } +print <<EOF2 ; +if test \$errors = 0 ; then + \$echo Passed all tests. 1>&2 +else + \$echo Failed \$errors tests. 1>&2 +fi +test \$errors = 0 || errors=1 +exit \$errors +EOF2 |