From 40944ce6ceb576174d80e65d41b1e0bd592535cf Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 2 Aug 2003 19:41:28 +0000 Subject: Add a test for the above fix. `cut -f2' would read after EOF. --- tests/misc/tty-eof | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'tests/misc/tty-eof') 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', "^.+\$"); -- cgit v1.2.3-54-g00ecf