rt/t/web/ticket_update_without_content.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 12;
   5 my ( $url, $m ) = RT::Test->started_ok;
   6
   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' . $$,
  11     Queue     => 'general',
  12     Owner     => 'root',
  13     Requestor => 'root@localhost',
  14     MIMEObj   => MIME::Entity->build(
  15         From    => 'root@localhost',
  16         To      => 'rt@localhost',
  17         Subject => 'base ticket' . $$,
  18         Data    => "",
  19     ),
  20 );
  21 ok( $ret, "ticket created: $msg" );
  22
  23 ok( $m->login, 'logged in' );
  24
  25 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
  26
  27 $m->submit_form(
  28     form_number => 3,
  29     fields      => { Priority => '1', }
  30 );
  31
  32 $m->content_contains("Priority changed");
  33 $m->content_lacks("message recorded");
  34
  35 my $root = RT::User->new( RT->SystemUser );
  36 $root->Load('root');
  37 ( $ret, $msg ) = $root->SetSignature(<<EOF);
  38 best wishes
  39 foo
  40 EOF
  41
  42 ok( $ret, $msg );
  43
  44 $m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
  45
  46 $m->submit_form(
  47     form_number => 3,
  48     fields      => { Priority => '2', }
  49 );
  50 $m->content_contains("Priority changed");
  51 $m->content_lacks("message recorded");