1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

DBD-SQLite: wrapped the second insert (which may be timed out in the worst case) with eval not to abort the test

This commit is contained in:
Kenichi Ishigaki 2009-08-15 10:02:53 +00:00
parent 692a7840b1
commit 9750059197

View file

@ -97,8 +97,15 @@ foreach my $call_func (@CALL_FUNCS) {
chomp($line);
ok($line, "Ready");
ok($dbh->$call_func(100000, 'busy_timeout'));
ok($dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )"));
$dbh->commit;
eval { $dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )") };
ok !$@;
if ($@) {
print "# Your testing environment might be too slow to pass this test: $@";
$dbh->rollback;
}
else {
$dbh->commit;
}
wait;
$dbh->disconnect;
unlink 'foo';