mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
49 lines
1.8 KiB
Perl
49 lines
1.8 KiB
Perl
# In a contentless FTS table, the columns are hidden from the schema,
|
|
# and therefore SQLite has no information to infer column types, so
|
|
# these are typed as SQLITE_NULL ... and this type conflicts with the
|
|
# constraint on the 'docid' column. So we have to explicitly type that
|
|
# column, using a CAST expression or a call to bind_param().
|
|
|
|
use strict;
|
|
use warnings;
|
|
use lib "t/lib";
|
|
use SQLiteTest;
|
|
use Test::More;
|
|
use if -d ".git", "Test::FailWarnings";
|
|
use DBI qw/SQL_INTEGER/;
|
|
|
|
BEGIN { requires_sqlite('3.7.9') }
|
|
BEGIN { plan skip_all => 'FTS is disabled for this DBD::SQLite' unless has_fts() }
|
|
|
|
my $dbh = connect_ok(RaiseError => 1, AutoCommit => 1);
|
|
|
|
# $dbh->trace(15);
|
|
|
|
my $sql = q{CREATE VIRTUAL TABLE foo USING fts4 (content="", a, b)};
|
|
ok( $dbh->do($sql), 'CREATE TABLE' );
|
|
|
|
ok($dbh->do("INSERT INTO foo(docid, a, b) VALUES(1, 'a', 'b')"),
|
|
"insert without bind");
|
|
|
|
# The following yields a constraint error because docid is improperly typed
|
|
# $dbh->do("INSERT INTO foo(docid, a, b) VALUES(?, ?, ?)", {}, qw/2 aa bb/);
|
|
|
|
# This works, thanks to the cast expression
|
|
ok($dbh->do("INSERT INTO foo(docid, a, b) VALUES(CAST(? AS INTEGER), ?, ?)",
|
|
{}, qw/2 aa bb/),
|
|
"insert with bind and cast");
|
|
|
|
# This also works, thanks to the bind_param() call
|
|
my $sth = $dbh->prepare("INSERT INTO foo(docid, a, b) VALUES(?, ?, ?)");
|
|
$sth->bind_param(1, 3, SQL_INTEGER);
|
|
$sth->bind_param(2, "aaa");
|
|
$sth->bind_param(3, "bbb");
|
|
ok($sth->execute(),
|
|
"insert with bind_param and explicit type ");
|
|
|
|
# Check that all terms were properly inserted
|
|
ok( $dbh->do("CREATE VIRTUAL TABLE foo_aux USING fts4aux(foo)"), 'FTS4AUX');
|
|
my $data = $dbh->selectcol_arrayref("select term from foo_aux where col='*'");
|
|
is_deeply ([sort @$data], [qw/a aa aaa b bb bbb/], "terms properly indexed");
|
|
|
|
done_testing;
|