simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

Fix test failures for older perls because of the line ending

Browse source
This commit is contained in:
Kenichi Ishigaki 2018-01-20 16:34:02 +09:00
parent 72fd3e009e
commit 7b949c35a4
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
t/08_busy.t
View file

@ -50,7 +50,7 @@ foreach my $call_func (@CALL_FUNCS) {
}; };
ok($@); ok($@);
if ($@) { if ($@) {
print "# expected insert failure : $@"; print "# expected insert failure : $@\n";
$dbh2->rollback; $dbh2->rollback;
} }
@ -114,7 +114,7 @@ foreach my $call_func (@CALL_FUNCS) {
eval { $dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )") }; eval { $dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )") };
ok !$@; ok !$@;
if ($@) { if ($@) {
print STDERR "# Your testing environment might be too slow to pass this test: $@"; print STDERR "# Your testing environment might be too slow to pass this test: $@\n";
$dbh->rollback; $dbh->rollback;
} }
else { else {

4
t/41_placeholders.t
View file

@ -30,9 +30,9 @@ eval {
$sth->bind_param(':baz', "AAAAAAA"); $sth->bind_param(':baz', "AAAAAAA");
}; };
ok $@, "binding unexisting named parameters returns error"; ok $@, "binding unexisting named parameters returns error";
print "# expected bind error: $@"; print "# expected bind error: $@\n";
ok $warn, "... and warning"; ok $warn, "... and warning";
print "# expected bind warning: $warn"; print "# expected bind warning: $warn\n";
$sth->execute; $sth->execute;
{ {
my ($count) = $dbh->selectrow_array( my ($count) = $dbh->selectrow_array(

2
t/47_execute.t
View file

@ -62,7 +62,7 @@ foreach my $call_func (@CALL_FUNCS) {
}; };
ok($@); ok($@);
if ($@) { if ($@) {
print "# expected execute failure : $@"; print "# expected execute failure : $@\n";
$sth->finish; $sth->finish;
$dbh->rollback; $dbh->rollback;
} }