From 8d2b4f9786b8e18df58fae9ce0dc9dac984596df Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Tue, 10 Dec 1996 21:16:08 +0000 Subject: [PATCH] . --- tests/cut/build-script.pl | 81 --------------------------------------------- tests/sort/build-script.pl | 81 --------------------------------------------- tests/tr/build-script.pl | 82 ---------------------------------------------- 3 files changed, 244 deletions(-) delete mode 100755 tests/cut/build-script.pl delete mode 100644 tests/sort/build-script.pl delete mode 100755 tests/tr/build-script.pl diff --git a/tests/cut/build-script.pl b/tests/cut/build-script.pl deleted file mode 100755 index c1cecc9..0000000 --- a/tests/cut/build-script.pl +++ /dev/null @@ -1,81 +0,0 @@ -#! @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 < /dev/null -EOF - -my %seen; - -my $test_vector; -foreach $test_vector (@Test::t) - { - my ($test_name, $flags, $input, $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 <&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 -test -s $err_output || rm -f $err_output -EOF - } -print <&2 -else - \$echo Failed \$errors tests. 1>&2 -fi -test \$errors = 0 || errors=1 -exit \$errors -EOF2 diff --git a/tests/sort/build-script.pl b/tests/sort/build-script.pl deleted file mode 100644 index 7df033c..0000000 --- a/tests/sort/build-script.pl +++ /dev/null @@ -1,81 +0,0 @@ -#! @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 < /dev/null -EOF - -my %seen; - -my $test_vector; -foreach $test_vector (@Test::t) - { - my ($test_name, $flags, $input, $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 <&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 -test -s $err_output || rm -f $err_output -EOF - } -print <&2 -else - \$echo Failed \$errors tests. 1>&2 -fi -test \$errors = 0 || errors=1 -exit \$errors -EOF2 diff --git a/tests/tr/build-script.pl b/tests/tr/build-script.pl deleted file mode 100755 index 2c7656f..0000000 --- a/tests/tr/build-script.pl +++ /dev/null @@ -1,82 +0,0 @@ -#! @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 < /dev/null -EOF - -my %seen; - -my $test_vector; -foreach $test_vector (@Test::t) - { - my ($test_name, $input, $flags, $s1, $s2, $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 $arg2 = ($s2 ? " '$s2'" : ''); - my $cmd = "\$xx $flags \'$s1\'$arg2 < \$srcdir/$in > $out 2> $err_output"; - $exp_name = "\$srcdir/$exp_name"; - print <&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 -test -s $err_output || rm -f $err_output -EOF - } -print <&2 -else - \$echo Failed \$errors tests. 1>&2 -fi -test \$errors = 0 || errors=1 -exit \$errors -EOF2 -- 2.7.4