mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 06:08:38 -04:00
35 lines
868 B
Perl
35 lines
868 B
Perl
use strict;
|
|
use warnings;
|
|
use lib "t/lib";
|
|
use SQLiteTest;
|
|
use Test::More;
|
|
use DBI;
|
|
|
|
my $dbh = connect_ok(RaiseError => 1, PrintError => 0);
|
|
|
|
sub locale_tokenizer {
|
|
return sub {
|
|
my $string = shift;
|
|
|
|
use locale;
|
|
my $regex = qr/\w+/;
|
|
my $term_index = 0;
|
|
|
|
return sub { # closure
|
|
$string =~ /$regex/g or return; # either match, or no more token
|
|
my ($start, $end) = ($-[0], $+[0]);
|
|
my $len = $end-$start;
|
|
my $term = substr($string, $start, $len);
|
|
return ($term, $len, $start, $end, $term_index++);
|
|
}
|
|
};
|
|
}
|
|
|
|
# "main::locale_tokenizer" is considered as another column name
|
|
# because of the comma after "tokenize=perl"
|
|
eval {
|
|
$dbh->do('CREATE VIRTUAL TABLE FIXMESSAGE USING FTS3(MESSAGE, tokenize=perl, "main::locale_tokenizer");');
|
|
};
|
|
ok $@, "cause an error but not segfault";
|
|
|
|
done_testing;
|