4 use RT::Test tests => 12;
5 my ( $url, $m ) = RT::Test->started_ok;
7 # merged tickets still show up in search
8 my $ticket = RT::Ticket->new(RT->SystemUser);
9 my ( $ret, $msg ) = $ticket->Create(
10 Subject => 'base ticket' . $$,
13 Requestor => 'root@localhost',
14 MIMEObj => MIME::Entity->build(
15 From => 'root@localhost',
17 Subject => 'base ticket' . $$,
21 ok( $ret, "ticket created: $msg" );
23 ok( $m->login, 'logged in' );
25 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
29 fields => { Priority => '1', }
32 $m->content_contains("Priority changed");
33 $m->content_lacks("message recorded");
35 my $root = RT::User->new( RT->SystemUser );
37 ( $ret, $msg ) = $root->SetSignature(<<EOF);
44 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
48 fields => { Priority => '2', }
50 $m->content_contains("Priority changed");
51 $m->content_lacks("message recorded");