CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-04 15:49:42 +02:00
Code Issues Projects Releases Wiki Activity

tests: tty-eof: fix various issues

Browse Source 
* tests/misc/tty-eof.pl: Ensure we don't erroneously
skip commands with parameters.
Comment as to why cut(1) is treated differently.
Adjust expect calls to not wait needlessly for cut output.
This commit is contained in:
Pádraig Brady
2023-04-11 13:02:21 +01:00
parent daa1e4f557
commit cf91b9d62c
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/misc/tty-eof.pl
+8 -4
View File
@@ -69,15 +69,19 @@ $@
{
my $exp = new Expect;
$exp->log_user(0);
$ENV{built_programs} =~ /\b$cmd\b/ || next;
my $cmd_name = (split(' ', $cmd))[0];
$ENV{built_programs} =~ /\b$cmd_name\b/ || next;
$exp->spawn("$cmd 2> $stderr")
or (warn "$ME: cannot run '$cmd': $!\n"), $fail=1, next;
# No input for cut -f2.
# Test cut in a different mode, even though it supports the standard flow
# Ensure that it exits with no input as it used to not do so
$cmd =~ /^cut/
or $exp->send("a b\n");
$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', "^.+\$");
$cmd =~ /^cut/
or $exp->expect (0, '-re', "^a b\\r?\$");
$cmd =~ /^cut/
or my $found = $exp->expect (1, '-re', "^.+\$");
$found and warn "F: $found: " . $exp->exp_match () . "\n";
$exp->expect(10, 'eof');
# Expect no output from cut, since we gave it no input.