diff options
author | Jim Meyering <jim@meyering.net> | 2003-02-19 14:02:43 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2003-02-19 14:02:43 +0000 |
commit | f0ecd052129643825311135779c2b38af1fde438 (patch) | |
tree | 88ad20e14fbf249bd2e52182b946aa6e9dfd74ee /tests/misc | |
parent | 4d5aae90bb859115804a7320813a61295272af10 (diff) | |
download | coreutils-f0ecd052129643825311135779c2b38af1fde438.tar.xz |
more clean-up. give more precise diagnostics
Diffstat (limited to 'tests/misc')
-rwxr-xr-x | tests/misc/tty-eof | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof index f2121818d..075a12717 100755 --- a/tests/misc/tty-eof +++ b/tests/misc/tty-eof @@ -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(); } |