1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
use strict;
use warnings;
use RT::Test tests => undef;
plan skip_all => 'Not Pg' unless RT->Config->Get('DatabaseType') eq 'Pg';
my ($major, $minor) = $RT::Handle->dbh->get_info(18) =~ /^0*(\d+)\.0*(\d+)/;
plan skip_all => "Need Pg 8.2 or higher; we have $major.$minor"
if "$major.$minor" < 8.2;
RT->Config->Set( FullTextSearch => Enable => 1, Indexed => 1, Column => 'ContentIndex', Table => 'AttachmentsIndex' );
setup_indexing();
my $q = RT::Test->load_or_create_queue( Name => 'General' );
ok $q && $q->id, 'loaded or created queue';
my $queue = $q->Name;
sub setup_indexing {
my %args = (
'no-ask' => 1,
command => $RT::SbinPath .'/rt-setup-fulltext-index',
dba => $ENV{'RT_DBA_USER'},
'dba-password' => $ENV{'RT_DBA_PASSWORD'},
);
my ($exit_code, $output) = RT::Test->run_and_capture( %args );
ok(!$exit_code, "setted up index") or diag "output: $output";
}
sub sync_index {
my %args = (
command => $RT::SbinPath .'/rt-fulltext-indexer',
);
my ($exit_code, $output) = RT::Test->run_and_capture( %args );
ok(!$exit_code, "setted up index") or diag "output: $output";
}
sub run_tests {
my @test = @_;
while ( my ($query, $checks) = splice @test, 0, 2 ) {
run_test( $query, %$checks );
}
}
my @tickets;
sub run_test {
my ($query, %checks) = @_;
my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
my $tix = RT::Tickets->new(RT->SystemUser);
$tix->FromSQL( "( $query_prefix ) AND ( $query )" );
my $error = 0;
my $count = 0;
$count++ foreach grep $_, values %checks;
is($tix->Count, $count, "found correct number of ticket(s) by '$query'") or $error = 1;
my $good_tickets = ($tix->Count == $count);
while ( my $ticket = $tix->Next ) {
next if $checks{ $ticket->id };
diag $ticket->Subject ." ticket has been found when it's not expected";
$good_tickets = 0;
}
ok( $good_tickets, "all tickets are good with '$query'" ) or $error = 1;
diag "Wrong SQL query for '$query':". $tix->BuildSelectQuery if $error;
}
my $blase = Encode::decode_utf8("blasé");
@tickets = RT::Test->create_tickets(
{ Queue => $q->id },
{ Subject => 'fts test 1', Content => "book $blase" },
{ Subject => 'fts test 2', Content => "bars blasé", ContentType => 'text/html' },
);
sync_index();
my $book = $tickets[0];
my $bars = $tickets[1];
run_tests(
"Content LIKE 'book'" => { $book->id => 1, $bars->id => 0 },
"Content LIKE 'bars'" => { $book->id => 0, $bars->id => 1 },
# Unicode searching
"Content LIKE '$blase'" => { $book->id => 1, $bars->id => 1 },
"Content LIKE 'blase'" => { $book->id => 0, $bars->id => 0 },
"Content LIKE 'blas'" => { $book->id => 0, $bars->id => 0 },
# make sure that Pg stemming works
"Content LIKE 'books'" => { $book->id => 1, $bars->id => 0 },
"Content LIKE 'bar'" => { $book->id => 0, $bars->id => 1 },
# no matches
"Content LIKE 'baby'" => { $book->id => 0, $bars->id => 0 },
"Content LIKE 'pubs'" => { $book->id => 0, $bars->id => 0 },
);
# Test the "ts_vector too long" skip
my $content = "";
$content .= "$_\n" for 1..200_000;
@tickets = RT::Test->create_tickets(
{ Queue => $q->id },
{ Subject => 'Short content', Content => '50' },
{ Subject => 'Long content', Content => $content },
{ Subject => 'More short', Content => '50' },
);
my ($exit_code, $output) = RT::Test->run_and_capture(
command => $RT::SbinPath .'/rt-fulltext-indexer'
);
like($output, qr/string is too long for tsvector/, "Got a warning for the ticket");
ok(!$exit_code, "set up index");
# The long content is skipped entirely
run_tests(
"Content LIKE '1'" => { $tickets[0]->id => 0, $tickets[1]->id => 0, $tickets[2]->id => 0 },
"Content LIKE '50'" => { $tickets[0]->id => 1, $tickets[1]->id => 0, $tickets[2]->id => 1 },
);
@tickets = ();
done_testing;
|
