X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=rt%2Ft%2Fapi%2Fticket.t;fp=rt%2Ft%2Fapi%2Fticket.t;h=cfba3e97bf468e6a9d169eb7ac60c6193015ef21;hb=740834abbf5434a60a7ded2c0b48430420e995a9;hp=c5f1e240fb0f194b176700885ea138eaaca0cfd6;hpb=c15f44fcb8de4a64edf8f6d35c2de4392be7464e;p=freeside.git

diff --git a/rt/t/api/ticket.t b/rt/t/api/ticket.t
index c5f1e240f..cfba3e97b 100644
--- a/rt/t/api/ticket.t
+++ b/rt/t/api/ticket.t
@@ -179,7 +179,20 @@ ok($ret, "Removed nobody as a squelched recipient - ".$msg);
 @returned = $t->SquelchMailTo();
 is($#returned, -1, "The ticket has no squelched recipients". join(',',@returned));
 
+@returned = $t->SquelchMailTo('somebody@example.com','nobody@example.com');
+is($#returned, 1, "The ticket has two squelched recipients, multiple args");
 
+@returned = $t->SquelchMailTo('third@example.com');
+is($#returned, 2, "The ticket has three squelched recipients, additive calls");
+
+my $t2 = RT::Ticket->new(RT->SystemUser);
+ok($t2->Create(Queue => 'general', Subject => 'SquelchTest', SquelchMailTo => [ 'nobody@example.com', 'test@example.com' ]));
+my @returned2 = $t2->SquelchMailTo();
+is($#returned2,1, "The ticket has two squelched recipients");
+
+$t2->SquelchMailTo('test@example.com');
+my @returned3 = $t2->SquelchMailTo();
+is($#returned2,1, "The ticket still has two squelched recipients, no duplicate squelchers");
 
 }