------ test-expect-loop -----

use Expect;
use Modern::Perl;

my $exp = Expect->spawn("midish","-v")
    or die "Couldn't start program: $!\n";

# don't copy program output to STDOUT
$exp->log_stdout(0);

$exp->expect(1, '+ready', \&do_cmd);

sub do_cmd {

	map{say "midish: $_"} split "\n", $exp->before;
	print "enter command >> ";
	my $cmd = <STDIN>;
	$exp->send($cmd);
	exp_continue;
}

$exp->soft_close();

__END__

program output:


$ perl test-expect-loop
enter command >> adsfsd
midish: 
midish: adsfsd
midish: adsfsd: no such proc
enter command >> 1234
midish: 
midish: 1234
midish: 2.5: statement or proc definition expected
enter command >> ffff
midish: 
midish: ffff
midish: ffff: no such proc
enter command >> exit
$