diff options
| author | Jim Meyering <jim@meyering.net> | 2003-02-19 12:56:37 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2003-02-19 12:56:37 +0000 |
| commit | f60bd3f4c8d14e6a83e7669e1419bc373b9e2ce0 (patch) | |
| tree | d05f2167f26334e1b5a25a36f0530ae8618cbd06 /tests | |
| parent | f3ecf0e5df2c187496709de68e7d6ccc8d5aa1db (diff) | |
| download | coreutils-f60bd3f4c8d14e6a83e7669e1419bc373b9e2ce0.tar.xz | |
comment out diagnostic
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/misc/cat-tty-eof | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/misc/cat-tty-eof b/tests/misc/cat-tty-eof index 1d7a3edbb..f2121818d 100755 --- 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(''); # 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 |