use strict;
use warnings;

use DBI;

my $dbh = DBI->connect( "dbi:SQLite:dbname=test.db",
							"",
							"", {
								# RaiseError => 1,		# we'll handle the errors ourselves
								sqlite_unicode => 1,
							}
						) or die "Can't connect to database: $DBI::errstr";



my $sqliteversion = $dbh->{sqlite_version}; print "\nSQLite version: $sqliteversion\n";

$dbh->do("DROP TABLE IF EXISTS data") or print "drop table failed";



$dbh->do("CREATE VIRTUAL TABLE data USING fts4 (col1 TEXT, col2 TEXT, tokenize=unicode61)") or print "failed to create fts4 table";