diff options
author | Jim Meyering <jim@meyering.net> | 1996-12-10 21:16:08 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1996-12-10 21:16:08 +0000 |
commit | 8d2b4f9786b8e18df58fae9ce0dc9dac984596df (patch) | |
tree | 3f18590b99a72cf8a9579a717633d14f0cf4d66f /tests/sort | |
parent | b44299cfd7cd8777fb2f4823d2e803e7944aca62 (diff) | |
download | coreutils-8d2b4f9786b8e18df58fae9ce0dc9dac984596df.tar.xz |
.
Diffstat (limited to 'tests/sort')
-rw-r--r-- | tests/sort/build-script.pl | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/tests/sort/build-script.pl b/tests/sort/build-script.pl deleted file mode 100644 index 7df033cbc..000000000 --- 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 <<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, $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 <<EOF ; -$cmd -code=\$? -if test \$code != $e_ret_code ; then - \$echo Test $test_name failed: $xx 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 -test -s $err_output || rm -f $err_output -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 |