Select Code to Download

ok 4 - expect_run
Expect::Simple: couldn't find prompt after send
 at /home/hgreen/test/Test-Expect-0.29/lib/Test/Expect.pm line 72
# Looks like your test died just after 4.

#!/bin/ksh
read -r var1?"Enter foo "
echo $var1

use Test::More tests => 5; 
use Test::Cmd;
...
use Test::Expect;
use Expect::Simple;
use Expect;

expect_run(

...
  );
expect('foo', 'foo', "expect");
expect_send('foo', "expect_send1");