X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Ft%2Fweb%2Fgoogleish_search.t;fp=rt%2Ft%2Fweb%2Fgoogleish_search.t;h=0000000000000000000000000000000000000000;hp=a5f834eee95c4c795922643c5f16c7c9c3e03bb8;hb=1c538bfabc2cd31f27067505f0c3d1a46cba6ef0;hpb=4f5619288413a185e9933088d9dd8c5afbc55dfa

diff --git a/rt/t/web/googleish_search.t b/rt/t/web/googleish_search.t
deleted file mode 100644
index a5f834eee..000000000
--- a/rt/t/web/googleish_search.t
+++ /dev/null
@@ -1,222 +0,0 @@
-use strict;
-use warnings;
-
-use RT::Test tests => undef,
-    config => 'Set( %FullTextSearch, Enable => 1, Indexed => 0 );';
-my ($baseurl, $m) = RT::Test->started_ok;
-my $url = $m->rt_base_url;
-
-my $queue = RT::Queue->new($RT::SystemUser);
-$queue->Create( Name => 'other' );
-ok( $queue->id, 'created queue other');
-
-my $two_words_queue = RT::Test->load_or_create_queue(
-    Name => 'Two Words',
-);
-ok $two_words_queue && $two_words_queue->id, 'loaded or created a queue';
-
-
-{
-    my $tickets = RT::Tickets->new( RT->SystemUser );
-    my $active = "( ".join( " OR ", map "Status = '$_'", RT::Queue->ActiveStatusArray())." )";
-    my $inactive = "( ".join( " OR ", map "Status = '$_'", RT::Queue->InactiveStatusArray())." )";
-
-    require RT::Search::Googleish;
-    my $parser = RT::Search::Googleish->new(
-        TicketsObj => $tickets,
-        Argument   => '',
-    );
-    is $parser->QueryToSQL("foo"), "$active AND ( Subject LIKE 'foo' )", "correct parsing";
-    is $parser->QueryToSQL("1"), "( Id = 1 )", "correct parsing";
-    is $parser->QueryToSQL("#1"), "( Id = 1 )", "correct parsing";
-    is $parser->QueryToSQL("'1'"), "$active AND ( Subject LIKE '1' )", "correct parsing";
-
-    is $parser->QueryToSQL("foo bar"),
-        "$active AND ( Subject LIKE 'foo' AND Subject LIKE 'bar' )",
-        "correct parsing";
-    is $parser->QueryToSQL("'foo bar'"),
-        "$active AND ( Subject LIKE 'foo bar' )",
-        "correct parsing";
-
-    is $parser->QueryToSQL("'foo \\' bar'"),
-        "$active AND ( Subject LIKE 'foo \\' bar' )",
-        "correct parsing";
-    is $parser->QueryToSQL('"foo \' bar"'),
-        "$active AND ( Subject LIKE 'foo \\' bar' )",
-        "correct parsing";
-    is $parser->QueryToSQL('"\f\o\o"'),
-        "$active AND ( Subject LIKE '\\\\f\\\\o\\\\o' )",
-        "correct parsing";
-
-    is $parser->QueryToSQL("General"), "( Queue = 'General' ) AND $active", "correct parsing";
-    is $parser->QueryToSQL("'Two Words'"), "$active AND ( Subject LIKE 'Two Words' )", "correct parsing";
-    is $parser->QueryToSQL("queue:'Two Words'"), "( Queue = 'Two Words' ) AND $active", "correct parsing";
-    is $parser->QueryToSQL("subject:'Two Words'"), "$active AND ( Subject LIKE 'Two Words' )", "correct parsing";
-
-    is $parser->QueryToSQL("me"), "( Owner.id = '__CurrentUser__' ) AND $active", "correct parsing";
-    is $parser->QueryToSQL("'me'"), "$active AND ( Subject LIKE 'me' )", "correct parsing";
-    is $parser->QueryToSQL("owner:me"), "( Owner.id = '__CurrentUser__' ) AND $active", "correct parsing";
-    is $parser->QueryToSQL("owner:'me'"), "( Owner = 'me' ) AND $active", "correct parsing";
-    is $parser->QueryToSQL('owner:root@localhost'), "( Owner.EmailAddress = 'root\@localhost' ) AND $active", "Email address as owner";
-
-    is $parser->QueryToSQL("resolved me"), "( Owner.id = '__CurrentUser__' ) AND ( Status = 'resolved' )", "correct parsing";
-    is $parser->QueryToSQL("resolved active me"), "( Owner.id = '__CurrentUser__' ) AND ( Status = 'resolved' OR Status = 'new' OR Status = 'open' OR Status = 'stalled' )", "correct parsing";
-    is $parser->QueryToSQL("status:active"), $active, "Explicit active search";
-    is $parser->QueryToSQL("status:'active'"), "( Status = 'active' )", "Quoting active makes it the actual word";
-    is $parser->QueryToSQL("inactive me"), "( Owner.id = '__CurrentUser__' ) AND $inactive", "correct parsing";
-
-    is $parser->QueryToSQL("cf.Foo:bar"), "( 'CF.{Foo}' LIKE 'bar' ) AND $active", "correct parsing of CFs";
-    is $parser->QueryToSQL(q{cf."don't foo?":'bar n\\' baz'}), qq/( 'CF.{don\\'t foo?}' LIKE 'bar n\\' baz' ) AND $active/, "correct parsing of CFs with quotes";
-}
-
-my $ticket_found_1 = RT::Ticket->new($RT::SystemUser);
-my $ticket_found_2 = RT::Ticket->new($RT::SystemUser);
-my $ticket_not_found = RT::Ticket->new($RT::SystemUser);
-
-$ticket_found_1->Create(
-    Subject   => 'base ticket 1'.$$,
-    Queue     => 'general',
-    Owner     => 'root',
-    Requestor => 'customsearch@localhost',
-    Content   => 'this is base ticket 1',
-);
-ok( $ticket_found_1->id, 'created ticket for custom search');
-
-
-$ticket_found_2->Create(
-    Subject   => 'base ticket 2'.$$,
-    Queue     => 'general',
-    Owner     => 'root',
-    Requestor => 'customsearch@localhost',
-    Content   => 'this is base ticket 2',
-);
-ok( $ticket_found_2->id, 'created ticket for custom search');
-
-$ticket_not_found = RT::Ticket->new($RT::SystemUser);
-$ticket_not_found->Create(
-    Subject   => 'not found subject' . $$,
-    Queue     => 'other',
-    Owner     => 'nobody',
-    Requestor => 'notfound@localhost',
-    Content   => 'this is not found content',
-);
-ok( $ticket_not_found->id, 'created ticket for custom search');
-
-ok($m->login, 'logged in');
-
-my @queries = (
-    'base ticket',            'root',
-    'customsearch@localhost', 'requestor:customsearch',
-    'subject:base',           'subject:"base ticket"',
-    'queue:general',          'owner:root',
-);
-
-for my $q (@queries) {
-    $m->form_with_fields('q');
-    $m->field( q => $q );
-    $m->submit;
-    $m->content_contains( 'base ticket 1', 'base ticket 1 is found' );
-    $m->content_contains( 'base ticket 2', 'base ticket 2 is found' );
-    $m->content_lacks( 'not found subject', 'not found ticket is not found' );
-}
-
-$ticket_not_found->SetStatus('open');
-is( $ticket_not_found->Status, 'open', 'status of not found ticket is open' );
-@queries = qw/new status:new/;
-for my $q (@queries) {
-    $m->form_with_fields('q');
-    $m->field( q => $q );
-    $m->submit;
-    $m->content_contains( 'base ticket 1', 'base ticket 1 is found' );
-    $m->content_contains( 'base ticket 2', 'base ticket 2 is found' );
-    $m->content_lacks( 'not found subject', 'not found ticket is not found' );
-}
-
-@queries = ( 'fulltext:"base ticket 1"', "'base ticket 1'" );
-for my $q (@queries) {
-    $m->form_with_fields('q');
-    $m->field( q => $q );
-    $m->submit;
-    $m->content_contains( 'base ticket 1', 'base ticket 1 is found' );
-    $m->content_lacks( 'base ticket 2',     'base ticket 2 is not found' );
-    $m->content_lacks( 'not found subject', 'not found ticket is not found' );
-}
-
-# now let's test with ' or "
-for my $quote ( q{'}, q{"} ) {
-    my $user = RT::User->new($RT::SystemUser);
-    is( ref($user), 'RT::User' );
-    my ( $id, $msg ) = $user->Create(
-        Name         => qq!foo${quote}bar!,
-        EmailAddress => qq!foo${quote}bar$$\@example.com !,
-        Privileged   => 1,
-    );
-    ok ($id, "Creating user - " . $msg );
-
-    my ( $grantid, $grantmsg ) =
-      $user->PrincipalObj->GrantRight( Right => 'OwnTicket' );
-    ok( $grantid, $grantmsg );
-
-
-
-    my $ticket_quote = RT::Ticket->new($RT::SystemUser);
-    $ticket_quote->Create(
-        Subject   => qq!base${quote}ticket $$!,
-        Queue     => 'general',
-        Owner     => $user->Name,
-        Requestor => qq!custom${quote}search\@localhost!,
-        Content   => qq!this is base${quote}ticket with quote inside!,
-    );
-    ok( $ticket_quote->id, 'created ticket with quote for custom search' );
-
-    @queries = (
-        qq!fulltext:base${quote}ticket!,
-        "base${quote}ticket",
-        "owner:foo${quote}bar",
-        "foo${quote}bar",
-
-        # email doesn't allow " character
-        $quote eq q{'}
-        ? (
-            "requestor:custom${quote}search\@localhost",
-            "custom${quote}search\@localhost",
-          )
-        : (),
-    );
-    for my $q (@queries) {
-        $m->form_with_fields('q');
-        $m->field( q => $q );
-        $m->submit;
-        my $escape_quote = $quote;
-        RT::Interface::Web::EscapeUTF8(\$escape_quote);
-        $m->content_contains( "base${escape_quote}ticket",
-            "base${quote}ticket is found" );
-    }
-}
-
-# Create a CF
-{
-    my $cf = RT::CustomField->new(RT->SystemUser);
-    ok( $cf->Create(Name => 'Foo', Type => 'Freeform', MaxValues => '1', Queue => 0) );
-    ok $cf->Id;
-
-    $ticket_found_1->AddCustomFieldValue( Field => 'Foo', Value => 'bar' );
-    $ticket_found_2->AddCustomFieldValue( Field => 'Foo', Value => 'bar' );
-    $ticket_not_found->AddCustomFieldValue( Field => 'Foo', Value => 'baz' );
-    is( $ticket_found_1->FirstCustomFieldValue('Foo'), 'bar', 'cf value is ok' );
-    is( $ticket_found_2->FirstCustomFieldValue('Foo'), 'bar', 'cf value is ok' );
-    is( $ticket_not_found->FirstCustomFieldValue('Foo'), 'baz', 'cf value is ok' );
-
-    @queries = qw/cf.Foo:bar/;
-    for my $q (@queries) {
-        $m->form_with_fields('q');
-        $m->field( q => $q );
-        $m->submit;
-        $m->content_contains( 'base ticket 1', 'base ticket 1 is found' );
-        $m->content_contains( 'base ticket 2', 'base ticket 2 is found' );
-        $m->content_lacks( 'not found subject', 'not found ticket is not found' );
-    }
-}
-
-undef $m;
-done_testing;