rt/t/web/ticket_update_without_content.t

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