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

more clean-up. give more precise diagnostics

Browse Source
This commit is contained in:
Jim Meyering
2003-02-19 14:02:43 +00:00
parent 4d5aae90bb
commit f0ecd05212
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/misc/tty-eof
View File

@@ -22,7 +22,9 @@ $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
{
my $fail = 0;
foreach my $cmd (qw(md5sum sha1sum cksum cat))
foreach my $cmd (qw( cat cksum dd expand fmt fold head md5sum nl od
paste pr ptx sha1sum sort sum tac tee tail tsort
unexpand uniq wc ))
{
my $exp = new Expect;
$exp->log_user(0);
@@ -33,10 +35,16 @@ $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
$exp->expect (0, '-re', "^foo\\r?\$");
my $found = $exp->expect (1, '-re', "^.+\$");
# $found and warn "F: $found: " . $exp->exp_match () . "\n";
$exp->expect(0, 'eof');
# defined $exp->exitstatus and warn "E: " . $exp->exitstatus . "\n";
defined $found && defined $exp->exitstatus && $exp->exitstatus == 0
$exp->expect(1, 'eof');
defined $found
or (warn "$ME: $cmd didn't produce expected output\n"),
$fail=1, next;
defined defined $exp->exitstatus
or (warn "$ME: $cmd didn't exit after ^D from standard input\n"),
$fail=1, next;
my $s = $exp->exitstatus;
$s == 0
or (warn "$ME: $cmd exited with status $s (expected 0)\n"),
$fail=1;
$exp->hard_close();
}