comment out diagnostic

diff --git a/tests/misc/cat-tty-eof b/tests/misc/cat-tty-eof
index 1d7a3edbb7666c910b6e8393255a1e2fe72c2bc1..f2121818d3024b7b630c5e89ec6c55341f4fba06 100755 (executable)
--- a/tests/misc/cat-tty-eof
+++ b/tests/misc/cat-tty-eof
@@ -32,7 +32,7 @@ $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
       $exp->send('\ 4');  # FIXME: it'd be better not to hard-code ^D here
       $exp->expect (0, '-re', "^foo\\r?\$");
       my $found = $exp->expect (1, '-re', "^.+\$");
-      $found and warn "F: $found: " . $exp->exp_match () . "\n";
+      # $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