rt/t/fts/indexed_oracle.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => undef;
   6 plan skip_all => 'Not Oracle' unless RT->Config->Get('DatabaseType') eq 'Oracle';
   7 plan tests => 13;
   8
   9 RT->Config->Set( FullTextSearch => Enable => 1, Indexed => 1, IndexName => 'rt_fts_index' );
  10
  11 setup_indexing();
  12
  13 my $q = RT::Test->load_or_create_queue( Name => 'General' );
  14 ok $q && $q->id, 'loaded or created queue';
  15 my $queue = $q->Name;
  16
  17 sub setup_indexing {
  18     my %args = (
  19         'no-ask'       => 1,
  20         command        => $RT::SbinPath .'/rt-setup-fulltext-index',
  21         dba            => $ENV{'RT_DBA_USER'},
  22         'dba-password' => $ENV{'RT_DBA_PASSWORD'},
  23     );
  24     my ($exit_code, $output) = RT::Test->run_and_capture( %args );
  25     ok(!$exit_code, "setted up index") or diag "output: $output";
  26 }
  27
  28 sub sync_index {
  29     my %args = (
  30         command => $RT::SbinPath .'/rt-fulltext-indexer',
  31     );
  32     my ($exit_code, $output) = RT::Test->run_and_capture( %args );
  33     ok(!$exit_code, "synced the index") or diag "output: $output";
  34 }
  35
  36 sub run_tests {
  37     my @test = @_;
  38     while ( my ($query, $checks) = splice @test, 0, 2 ) {
  39         run_test( $query, %$checks );
  40     }
  41 }
  42
  43 my @tickets;
  44 sub run_test {
  45     my ($query, %checks) = @_;
  46     my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
  47
  48     my $tix = RT::Tickets->new(RT->SystemUser);
  49     $tix->FromSQL( "( $query_prefix ) AND ( $query )" );
  50
  51     my $error = 0;
  52
  53     my $count = 0;
  54     $count++ foreach grep $_, values %checks;
  55     is($tix->Count, $count, "found correct number of ticket(s) by '$query'") or $error = 1;
  56
  57     my $good_tickets = ($tix->Count == $count);
  58     while ( my $ticket = $tix->Next ) {
  59         next if $checks{ $ticket->Subject };
  60         diag $ticket->Subject ." ticket has been found when it's not expected";
  61         $good_tickets = 0;
  62     }
  63     ok( $good_tickets, "all tickets are good with '$query'" ) or $error = 1;
  64
  65     diag "Wrong SQL query for '$query':". $tix->BuildSelectQuery if $error;
  66 }
  67
  68 @tickets = RT::Test->create_tickets(
  69     { Queue => $q->id },
  70     { Subject => 'book', Content => 'book' },
  71     { Subject => 'bar', Content => 'bar' },
  72 );
  73 sync_index();
  74
  75 run_tests(
  76     "Content LIKE 'book'" => { book => 1, bar => 0 },
  77     "Content LIKE 'bar'" => { book => 0, bar => 1 },
  78 );
  79
  80 @tickets = ();
  81