mirrors/coreutils
0
0
Fork 0
mirror of https://github.com/coreutils/coreutils.git synced 2024-12-02 06:23:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Write ^D as \cD.

Browse Source 
Complete the change of 2003-08-02.
This commit is contained in:
Jim Meyering 2003-09-07 17:21:48 +00:00
parent edd0e9f89b
commit 1f36aa5121
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/misc/tty-eof
View File

@ -39,12 +39,13 @@ $@ and (warn "$ME: this script requires Perl's Expect package >=1.11\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->send("\cD"); # This is Control-D. FIXME: what if that's not EOF?
$exp->expect (0, '-re', "^a b\\r?\$");
my $found = $exp->expect (1, '-re', "^.+\$");
# $found and warn "F: $found: " . $exp->exp_match () . "\n";
$exp->expect(1, 'eof');
defined $found
# Expect no output from cut, since we gave it no input.
defined $found || $cmd =~ /^cut/
or (warn "$ME: $cmd didn't produce expected output\n"),
$fail=1, next;
defined defined $exp->exitstatus