Add a test for the above fix.

`cut -f2' would read after EOF.

diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof
index aca7235..c0c7b4b 100755 (executable)
--- 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('\ 4');  # FIXME: it'd be better not to hard-code ^D here
       $exp->expect (0, '-re', "^a b\\r?\$");
       my $found = $exp->expect (1, '-re', "^.+\$");