Test case (very simple)

pyExpect.pl (text/plain), 378 bytes, created by Rob Davies on 2003-09-12 03:16:47 UTC

#/usr/bin/perl -w

use Expect;

$command = Expect->spawn("python") or
    die "Couldn't start python: $!\n";

unless ($command->expect( 3, '>>> ')) {
    die "No python prompt!";
}
print $command "2 + 2\r";
unless ($command->expect( 3, -re => '^4\r\n')) {
    die "2+2 != 4!!!!";
}
unless ($command->expect( 3, '>>> ')) {
    die "No python prompt!";
}

$command->hard_close();