simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -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($@);
if ($@) {
print "# expected insert failure : $@";
print "# expected insert failure : $@\n";
$dbh2->rollback;
}
@ -114,7 +114,7 @@ foreach my $call_func (@CALL_FUNCS) {
eval { $dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )") };
ok !$@;
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;
}
else {

4
t/41_placeholders.t
View file

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

2
t/47_execute.t
View file

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