From: Jim Meyering <jim@meyering.net>
Date: Sat, 2 Aug 2003 19:41:28 +0000 (+0000)
Subject: Add a test for the above fix.
X-Git-Tag: CPPI-1_11~143
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=40944ce6ceb576174d80e65d41b1e0bd592535cf;p=thirdparty%2Fcoreutils.git

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 aca723526f..c0c7b4b8d8 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', "^.+\$");