mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
43 lines
977 B
Perl
43 lines
977 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
BEGIN {
|
|
$| = 1;
|
|
$^W = 1;
|
|
}
|
|
|
|
use t::lib::Test;
|
|
use Test::More;
|
|
|
|
BEGIN { requires_sqlite('3.7.7') }
|
|
BEGIN { plan skip_all => 'FTS3 is disabled for this DBD::SQLite' if !grep /ENABLE_FTS3/, DBD::SQLite::compile_options() }
|
|
|
|
plan tests => 3;
|
|
use Test::NoWarnings;
|
|
|
|
my $dbh = connect_ok(AutoCommit => 0);
|
|
|
|
$dbh->do($_) for (
|
|
'CREATE VIRTUAL TABLE test_fts USING fts4 (
|
|
col1,
|
|
col2,
|
|
)',
|
|
'INSERT INTO test_fts (col1, col2) VALUES ("abc", "123")',
|
|
'INSERT INTO test_fts (col1, col2) VALUES ("def", "456")',
|
|
'INSERT INTO test_fts (col1, col2) VALUES ("abc", "123")',
|
|
'INSERT INTO test_fts (col1, col2) VALUES ("def", "456")',
|
|
'INSERT INTO test_fts (col1, col2) VALUES ("abc", "123")',
|
|
);
|
|
|
|
my $sth = $dbh->prepare('SELECT * FROM test_fts WHERE col2 MATCh "123"');
|
|
$sth->execute;
|
|
|
|
while ( my @row = $sth->fetchrow_array ) {
|
|
note join " ", @row;
|
|
}
|
|
#$sth->finish;
|
|
|
|
$dbh->commit;
|
|
$dbh->disconnect;
|
|
|
|
pass "all done without segfault";
|