------ test-expect-simple ----

use Modern::Perl;
use Expect::Simple;

$| = 1;
my $obj = Expect::Simple->new({
	 Cmd => [ midish => '-v'],
	 Prompt => '+ready',
	 DisconnectCmd => 'exit',
	 Verbose => 0,
	 Debug => 0,
	 Timeout => 100
   });

sub prompt { print "midish> " }


while ( prompt(), my $cmd = <STDIN> ){
	
		exit if $cmd =~ 'quit';
		chomp $cmd;
		$cmd .= "\r";
        $obj->send( $cmd );
        my @lines = split "\n", $obj->before;
		splice(@lines, 0, 2); # throw away the first two lines
		say join "\n", @lines;
}

__END__

$perl test-expect-simple
midish> asdf

asdf: no such proc
midish> 1234

midish> ffff

3.5: statement or proc definition expected
midish> ^C


##</code><code>##

------ 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
$ 

##</code><code>##

call_to_expect($one_command);
execute_other_code();
call_to_expect($another_command);

------ test-expect-unrolled -----

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);
print_output();

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

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

sub do_cmd {

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

$exp->soft_close();
__END__

program output:

$ perl test-expect-unrolled
enter command >> asdf
enter command >> 1234
midish: 
midish: asdf
midish: asdf: no such proc
enter command >> ffff
midish: 
midish: 1234
midish: 2.5: statement or proc definition expected
<hang> 
^C
$