1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::Test qw/connect_ok/;
use Test::More;
use Test::NoWarnings;
plan tests => 13;
my $dbh = connect_ok( RaiseError => 1 );
ok $dbh->do('create table foo (id integer, value integer)');
ok $dbh->do('insert into foo values(?, ?)', undef, 1, 2);
ok $dbh->do('insert into foo values(?1, ?2)', undef, 2, 3);
ok $dbh->do('insert into foo values(:1, :2)', undef, 3, 4);
ok $dbh->do('insert into foo values(@1, @2)', undef, 4, 4);
my $sth = $dbh->prepare('insert into foo values(:foo, :bar)');
ok $sth, "prepared sth with named parameters";
$sth->bind_param(':foo', 5);
$sth->bind_param(':bar', 6);
my $warn;
eval {
local $SIG{__WARN__} = sub { $warn = shift; };
$sth->bind_param(':baz', "AAAAAAA");
};
ok $@, "binding unexisting named parameters returns error";
print "# expected bind error: $@";
ok $warn, "... and warning";
print "# expected bind warning: $warn";
$sth->execute;
{
my ($count) = $dbh->selectrow_array(
'select count(id) from foo where id = ? and value = ?',
undef, 5, 6
);
ok $count == 1, "successfully inserted row with named placeholders";
}
SKIP: {
skip "this placeholder requires SQLite 3.6.19 and newer", 2
unless $DBD::SQLite::sqlite_version_number && $DBD::SQLite::sqlite_version_number >= 3006019;
ok $dbh->do(
'update foo set id = $1 where value = $2 and id is not $1',
undef, 3, 4
);
my ($count) = $dbh->selectrow_array(
'select count(id) from foo where id = ? and value = ?',
undef, 3, 4
);
ok $count == 2;
}
|