X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Ft%2Fmail%2Fone-time-recipients.t;fp=rt%2Ft%2Fmail%2Fone-time-recipients.t;h=bdbcc523d5bce1d32019a178f6c186614637f25d;hp=1bc172d71981c2e891dd422847e906f6275c6849;hb=de9d037528895f7151a9aead6724ce2df95f9586;hpb=b226bc6bd81f999176cdbfa53a799033ff0a0307

diff --git a/rt/t/mail/one-time-recipients.t b/rt/t/mail/one-time-recipients.t
index 1bc172d71..bdbcc523d 100644
--- a/rt/t/mail/one-time-recipients.t
+++ b/rt/t/mail/one-time-recipients.t
@@ -89,6 +89,28 @@ warnings_are {
         );
         ok $status, "replied to a ticket";
     } { Cc => 'test@localhost' };
+}[];
+
+diag "Reply to ticket with multiple requestors squelched";
+warnings_are {
+    my $ticket = RT::Ticket->new( RT::CurrentUser->new( $user ) );
+    mail_ok {
+        my ($status, undef, $msg) = $ticket->Create(
+            Queue => $queue->id,
+            Subject => 'test squelch',
+            Requestor => ['test@localhost','bob@localhost','fred@localhost' ],
+        );
+        ok $status, "created ticket";
+    } { To => 'bob@localhost, fred@localhost, test@localhost' };
+
+    mail_ok {
+        my ($status,$msg) = $ticket->Correspond(
+            Content => 'squelched email',
+            SquelchMailTo => ['bob@localhost', 'fred@localhost'],
+        );
+        ok $status, "replied to a ticket";
+    } { To => 'test@localhost' };
+
 } [];
 
 diag "Reply to ticket with requestor squelched";