import rt 3.8.7

1 files changed, 52 insertions, 0 deletions

diff --git a/rt/t/web/ticket_update_without_content.t b/rt/t/web/ticket_update_without_content.t
new file mode 100644
index 000000000..595cb74e9
--- /dev/null
+++ b/rt/t/web/ticket_update_without_content.t
@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use RT::Test tests => 10;
+my ( $url, $m ) = RT::Test->started_ok;
+
+# merged tickets still show up in search
+my $ticket = RT::Ticket->new($RT::SystemUser);
+my ( $ret, $msg ) = $ticket->Create(
+    Subject   => 'base ticket' . $$,
+    Queue     => 'general',
+    Owner     => 'root',
+    Requestor => 'root@localhost',
+    MIMEObj   => MIME::Entity->build(
+        From    => 'root@localhost',
+        To      => 'rt@localhost',
+        Subject => 'base ticket' . $$,
+        Data    => "",
+    ),
+);
+ok( $ret, "ticket created: $msg" );
+
+ok( $m->login, 'logged in' );
+
+$m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
+
+$m->submit_form(
+    form_number => 3,
+    fields      => { Priority => '1', }
+);
+
+$m->content_like(qr/priority changed/i);
+$m->content_unlike(qr/message recorded/i);
+
+my $root = RT::User->new( $RT::SystemUser );
+$root->Load('root');
+( $ret, $msg ) = $root->SetSignature(<<EOF);
+best wishes
+foo
+EOF
+
+ok( $ret, $msg );
+
+$m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id );
+
+$m->submit_form(
+    form_number => 3,
+    fields      => { Priority => '2', }
+);
+$m->content_like(qr/priority changed/i);
+$m->content_unlike(qr/message recorded/i);