diff options
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/misc/tty-eof | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof index aca723526..c0c7b4b8d 100755 --- a/tests/misc/tty-eof +++ b/tests/misc/tty-eof @@ -30,13 +30,15 @@ $@ and (warn "$ME: this script requires Perl's Expect package >=1.11\n"), my $fail = 0; 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 )) + unexpand uniq wc ), 'cut -f2') { my $exp = new Expect; $exp->log_user(0); $exp->spawn($cmd) or (warn "$ME: cannot run `$cmd': $!\n"), $fail=1, next; - $exp->send("a b\n"); + # No input for cut -f2. + $cmd =~ /^cut/ + or $exp->send("a b\n"); $exp->send(''); # FIXME: it'd be better not to hard-code ^D here $exp->expect (0, '-re', "^a b\\r?\$"); my $found = $exp->expect (1, '-re', "^.+\$"); |