CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-20 18:56:39 +02:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
Jim Meyering
1996-08-05 04:04:49 +00:00
parent 1a038cb55e
commit aa49f63378
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tests/tr/build-script.pl
View File

@@ -15,9 +15,11 @@ esac
echo=echo
\$echo testing with $xx=\$xx
errors=0
test "\$srcdir" || srcdir=.
test "\$verbose" && \$xx --version 2> /dev/null
EOF
print "# $xx --version 2> /dev/null\n";
my %seen;
while (<>)
@@ -34,7 +36,7 @@ while (<>)
if (defined ($seen{$test_name}));
$seen{$test_name} = 1;
my $in = "t$test_name.in";
my $exp_name = 't' . $test_name . '.exp';
my $exp_name = "t$test_name.exp";
my $out = "t$test_name.out";
open(IN, ">$in") || die "$0: $in: $!\n";
@@ -45,7 +47,8 @@ while (<>)
close(EXP);
my $arg2 = ($s2 ? " '$s2'" : '');
my $err_output = "t$test_name.err";
my $cmd = "\$xx $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
my $cmd = "\$xx $flags \'$s1\'$arg2 < \$srcdir/$in > $out 2> $err_output";
$exp_name = "\$srcdir/$exp_name";
print <<EOF ;
$cmd
code=\$?
@@ -53,7 +56,7 @@ 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
cmp $out \$srcdir/$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;