Hi All,
I am currently testing this module and have come across 3 failures that are
common on the 3 OS'es. Has anyone seen this or has a fixe for it?
Thanks in advance.
...
ok 14
ok 15
not ok 16
# Test failed at test.pl line 86.
{
my $exp = new Expect($Perl . q{ -e 'print "Begin\n"; sleep (5); print
"End\n";' });
my $cnt = 0;
$exp->expect(1,
[ "Begin" => sub { ok(1); exp_continue; } ],
[ "End" => sub { ok(1); } ],
[ eof => sub { print "EOF\n"; ok(0); } ],
[ timeout => sub { $cnt++; ($cnt < 7)? exp_continue : 0;} ],
);
ok($cnt > 2 and $cnt < 7);
$exp->hard_close();
}
some string
ok 17
not ok 18
# Test failed at test.pl line 95.
{
# timeout shouldn't destroy accum contents
my $exp = new Expect($Perl . q{ -e 'print "some string\n"; sleep (5);' });
ok(not defined $exp->expect(1, "NoMaTcH"));
my $i = $exp->expect(1, '-re', 'some\s');
ok (defined $i and $i == 1);
$exp->hard_close();
}
Testing -notransfer...
X some other
ok 19
ok 20
ok 21
ok 22
ok 23
EOF
ok 24
Testing raw reversing...
isatty($exp): YES
print "isatty(\$exp): ";
if (POSIX::isatty($exp)) {
print "YES\n";
} else {
print "NO\n";
}
$exp->raw_pty(1);
$exp->spawn("$Perl -ne 'chomp; sleep 0; print scalar reverse, \"\\n\"'")
<------ goes to sleep here
or die "Cannot spawn $Perl: $!\n";
*** Exit 130
Stop.
Noel Paul
Lead Unix Administrator
Mincom
Phone: 61-7-3364 9876
Fax : 61-7-3364 9777
Email : Noe...@mi...
Http : www.mincom.com
Mincom. The People. The Experience. The Vision.
This transmission is for the intended addressee only and is confidential
information. If you have received this transmission in error, please delete
it and notify the sender. The contents of this E-mail are the opinion of the
writer only and are not endorsed by the Mincom Group of companies unless
expressly stated otherwise.
|
