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

make sure errors were actually raised

Browse source
This commit is contained in:
Kenichi Ishigaki 2011-10-26 14:47:42 +00:00
parent 3d62ea8a29
commit 2059f6f2ae
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
t/rt_67581_bind_params_mismatch.t
View file

@ -7,7 +7,7 @@ BEGIN {
} }
use t::lib::Test qw/connect_ok/; use t::lib::Test qw/connect_ok/;
use Test::More tests => 32; use Test::More tests => 38;
use DBI qw/:sql_types/; use DBI qw/:sql_types/;
my $id = 0; my $id = 0;
@ -38,6 +38,7 @@ for my $has_pk (0..1) {
my $ret = eval { $sth->execute }; my $ret = eval { $sth->execute };
if ($has_pk) { if ($has_pk) {
ok $@, "died correctly";
ok !defined $ret, "returns undef"; ok !defined $ret, "returns undef";
ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch"; ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch";
} }
@ -62,6 +63,7 @@ for my $has_pk (0..1) {
my $ret = eval { $sth->execute }; my $ret = eval { $sth->execute };
if ($has_pk) { if ($has_pk) {
ok $@, "died correctly";
ok !defined $ret, "returns undef"; ok !defined $ret, "returns undef";
ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch"; ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch";
} }
@ -95,6 +97,7 @@ for my $has_pk (0..1) {
$sth->bind_param(1, ++$id); $sth->bind_param(1, ++$id);
$sth->bind_param(2, 3.5, SQL_INTEGER); $sth->bind_param(2, 3.5, SQL_INTEGER);
my $ret = eval { $sth->execute }; my $ret = eval { $sth->execute };
ok $@, "died correctly";
ok !defined $ret, "returns undef"; ok !defined $ret, "returns undef";
ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch"; ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch";
@ -109,6 +112,7 @@ for my $has_pk (0..1) {
# only dies if type is explicitly specified # only dies if type is explicitly specified
my $ret = eval { $sth->execute }; my $ret = eval { $sth->execute };
ok $@, "died correctly";
ok !defined $ret, "returns undef"; ok !defined $ret, "returns undef";
ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch"; ok $sth->errstr && $sth->errstr =~ /datatype mismatch/, "insert failed: type mismatch";