diff options
author | Jim Meyering <jim@meyering.net> | 1996-08-18 14:31:42 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1996-08-18 14:31:42 +0000 |
commit | 416715cf930417d7d03f10b8530ee3e73d06316a (patch) | |
tree | 63d8218334e7eb09c101cd2c53c930bf0fdae4bd /tests/sort | |
parent | 730ec4650a07bee8f863d9d83ff8fc4804233ffb (diff) | |
download | coreutils-416715cf930417d7d03f10b8530ee3e73d06316a.tar.xz |
.
Diffstat (limited to 'tests/sort')
-rwxr-xr-x | tests/sort/build-script | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/tests/sort/build-script b/tests/sort/build-script deleted file mode 100755 index 5c2b2d4ba..000000000 --- a/tests/sort/build-script +++ /dev/null @@ -1,65 +0,0 @@ -#!/p/bin/perl -w - -$xx = './sort'; -$test = 0; -$| = 1; - -print "#! /bin/sh\nxx='$xx'\necho testing with $xx=\$xx\nerrors=0\n"; -print "$xx --version 2> /dev/null\n"; -$expected = ''; -$input = ''; -$options = ''; - -while (<>) - { - next if (/^\s*#/); - - $test++; - chop; - $prog = '($test_name, $options,$input,$expected,$e_ret_code) = ' . $_ . ';'; - eval $prog; - if (defined ($seen{$test_name})) - { - die "$0: $.: duplicate test name \`$test_name'\n"; - } - $seen{$test_name} = 1; - $in = "t$test_name.in"; - $exp_name = 't' . $test_name . '.exp'; - $out = "t$test_name.out"; - - open(IN, ">$in") || die "Couldn't open $in for writing.\n"; - print IN $input; - close(IN); - open(EXP, ">$exp_name") - || die "Couldn't open $exp_name for writing.\n"; - print EXP $expected; - close(EXP); - $err_output = "t$test_name.err"; - $cmd = "\$xx $options $in > $out 2> $err_output"; - 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 -EOF2 |