5 use RT::Test tests => 7;
6 my ($baseurl, $m) = RT::Test->started_ok;
7 my $url = $m->rt_base_url;
9 # merged tickets still show up in search
10 my $t1 = RT::Ticket->new($RT::SystemUser);
12 Subject => 'base ticket'.$$,
15 Requestor => 'customsearch@localhost',
16 MIMEObj => MIME::Entity->build(
17 From => 'customsearch@localhost',
19 Subject => 'base ticket'.$$,
20 Data => "DON'T SEARCH FOR ME",
23 ok(my $id1 = $t1->id, 'created ticket for custom search');
25 my $t2 = RT::Ticket->new($RT::SystemUser);
27 Subject => 'merged away'.$$,
30 Requestor => 'customsearch@localhost',
31 MIMEObj => MIME::Entity->build(
32 From => 'customsearch@localhost',
34 Subject => 'merged away'.$$,
38 ok(my $id2 = $t2->id, 'created ticket for custom search');
40 my ($ok, $msg) = $t2->MergeInto($id1);
41 ok($ok, "merge: $msg");
43 ok($m->login, 'logged in');
45 $m->form_with_fields('q');
46 $m->field(q => 'fulltext:MERGEDAWAY');
48 local $TODO = "We don't yet handle merged ticket content searches right";
49 $m->content_contains('Found 1 ticket');
51 $m->content_contains('base ticket', "base ticket is found, not the merged-away ticket");