rt/t/web/quicksearch.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => 9;
   6 my ($baseurl, $m) = RT::Test->started_ok;
   7 my $url = $m->rt_base_url;
   8
   9 # merged tickets still show up in search
  10 my $t1 = RT::Ticket->new(RT->SystemUser);
  11 $t1->Create(
  12     Subject   => 'base ticket'.$$,
  13     Queue     => 'general',
  14     Owner     => 'root',
  15     Requestor => 'customsearch@localhost',
  16     MIMEObj   => MIME::Entity->build(
  17         From    => 'customsearch@localhost',
  18         To      => 'rt@localhost',
  19         Subject => 'base ticket'.$$,
  20         Data    => "DON'T SEARCH FOR ME",
  21     ),
  22 );
  23 ok(my $id1 = $t1->id, 'created ticket for custom search');
  24
  25 my $t2 = RT::Ticket->new(RT->SystemUser);
  26 $t2->Create(
  27     Subject   => 'merged away'.$$,
  28     Queue     => 'general',
  29     Owner     => 'root',
  30     Requestor => 'customsearch@localhost',
  31     MIMEObj   => MIME::Entity->build(
  32         From    => 'customsearch@localhost',
  33         To      => 'rt@localhost',
  34         Subject => 'merged away'.$$,
  35         Data    => "MERGEDAWAY",
  36     ),
  37 );
  38 ok(my $id2 = $t2->id, 'created ticket for custom search');
  39
  40 my ($ok, $msg) = $t2->MergeInto($id1);
  41 ok($ok, "merge: $msg");
  42
  43 ok($m->login, 'logged in');
  44
  45 $m->form_with_fields('q');
  46 $m->field(q => 'fulltext:MERGEDAWAY');
  47 TODO:  {
  48     local $TODO = "We don't yet handle merged ticket content searches right";
  49 $m->content_contains('Found 1 ticket');
  50 }
  51 $m->content_contains('base ticket', "base ticket is found, not the merged-away ticket");