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

Update for perl5 and use strict.

Browse Source
This commit is contained in:
Jim Meyering
1996-08-04 16:03:00 +00:00
parent 3cf0da722f
commit 1dc1d2996a
1 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
tests/tr/build-script
View File

@@ -1,31 +1,37 @@
#!/usr/bin/perl -w
#!/p/bin/perl -w
require 5.002;
use strict;
$xx = './tr';
my $xx = './tr';
$| = 1;
print "#! /bin/sh\nxx='$xx'\necho testing with $xx=\$xx\nerrors=0\n";
print "$xx --version 2> /dev/null\n";
$expected = '';
$s1 = '';
$input = '';
$flags = '';
$s2 = '';
my $expected = '';
my $s1 = '';
my $input = '';
my $flags = '';
my $s2 = '';
my %seen;
while (<>)
{
next if (/^\s*#/);
chop;
$prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
my $test_name;
my $e_ret_code;
my $prog =
'($test_name, $input,$flags,$s1,$s2,$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";
my $in = "t$test_name.in";
my $exp_name = 't' . $test_name . '.exp';
my $out = "t$test_name.out";
open(IN, ">$in") || die "Couldn't open $in for writing.\n";
print IN $input;
@@ -34,9 +40,9 @@ while (<>)
|| die "Couldn't open $exp_name for writing.\n";
print EXP $expected;
close(EXP);
$arg2 = ($s2 ? " '$s2'" : '');
$err_output = "t$test_name.err";
$cmd = "\$xx $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
my $arg2 = ($s2 ? " '$s2'" : '');
my $err_output = "t$test_name.err";
my $cmd = "\$xx $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
print <<EOF ;
$cmd
code=\$?