5 use RT::Test tests => 10;
6 my ( $url, $m ) = RT::Test->started_ok;
8 # merged tickets still show up in search
9 my $ticket = RT::Ticket->new($RT::SystemUser);
10 my ( $ret, $msg ) = $ticket->Create(
11 Subject => 'base ticket' . $$,
14 Requestor => 'root@localhost',
15 MIMEObj => MIME::Entity->build(
16 From => 'root@localhost',
18 Subject => 'base ticket' . $$,
22 ok( $ret, "ticket created: $msg" );
24 ok( $m->login, 'logged in' );
26 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
30 fields => { Priority => '1', }
33 $m->content_like(qr/priority changed/i);
34 $m->content_unlike(qr/message recorded/i);
36 my $root = RT::User->new( $RT::SystemUser );
38 ( $ret, $msg ) = $root->SetSignature(<<EOF);
45 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
49 fields => { Priority => '2', }
51 $m->content_like(qr/priority changed/i);
52 $m->content_unlike(qr/message recorded/i);