make the now-more-picky tsort fail.
$exp->log_user(0);
$exp->spawn($cmd)
or (warn "$ME: cannot run `$cmd': $!\n"), $fail=1, next;
- $exp->send("foo\n");
+ $exp->send("a b\n");
$exp->send('\ 4'); # FIXME: it'd be better not to hard-code ^D here
- $exp->expect (0, '-re', "^foo\\r?\$");
+ $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');