1 files changed, 59 insertions, 0 deletions
diff --git a/t/41_placeholders.t b/t/41_placeholders.t
new file mode 100644
index 0000000..957c359
--- /dev/null
+++ b/t/41_placeholders.t
@@ -0,0 +1,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;
+}