mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
c4eab85ff7
Zero functional changes, simply executed the following:
find . -name '*.t' -exec perl -0777 -p -i -e 's|^use t::lib::SQLiteTest|use lib "t/lib";\nuse SQLiteTest|m' {} +
Also had to do a manual (but identical) fix in t/01_compile.t
39 lines
936 B
Perl
39 lines
936 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
BEGIN {
|
|
$| = 1;
|
|
$^W = 1;
|
|
}
|
|
|
|
use lib "t/lib";
|
|
use SQLiteTest;
|
|
use Test::More tests => 2;
|
|
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";
|