[Rt-commit] r3184 - in RT-Extension-AddAdminCcsOnQueueChange: . t

[kevinr at bestpractical.com]

Author: kevinr
Date: Wed Jun 15 17:54:13 2005
New Revision: 3184

Modified:
   RT-Extension-AddAdminCcsOnQueueChange/   (props changed)
   RT-Extension-AddAdminCcsOnQueueChange/t/01-require.t
Log:
 r4314 at sad-girl-in-snow:  kevinr | 2005-06-15 17:32:00 -0400
 * Fixed error in e-mail addresses
 * Added test for multiple additions of the same address


Modified: RT-Extension-AddAdminCcsOnQueueChange/t/01-require.t
==============================================================================
--- RT-Extension-AddAdminCcsOnQueueChange/t/01-require.t	(original)
+++ RT-Extension-AddAdminCcsOnQueueChange/t/01-require.t	Wed Jun 15 17:54:13 2005
@@ -49,7 +49,7 @@
 
 # handles a single watcher?
 ($id, $message) = $watched_queue->AddWatcher( Type => 'AdminCc',
-                                              Email => 'watcher1\@example.com'
+                                              Email => 'watcher1 at example.com'
                                             );
 ok($id, "Added watcher1? $message");
 
@@ -70,7 +70,7 @@
 
 # doesn't add watchers when the ticket gets moved back
 ($id, $message) = $watched_queue->AddWatcher( Type => 'AdminCc',
-                                              Email => 'watcher2\@example.com'
+                                              Email => 'watcher2 at example.com'
                                             );
 ok($id, "Added watcher2? $message");
 ($id, $message) = $ticket_1->SetQueue("Watched-$$");
@@ -79,11 +79,15 @@
 
 # deals properly with multiple watchers
 ($id, $message) = $watched_queue->AddWatcher( Type => 'AdminCc',
-                                              Email => 'watcher3\@example.com'
+                                              Email => 'watcher3 at example.com'
                                             );
 ok($id, "Added watcher3? $message");
 ($id, $message) = $ticket_1->SetQueue("Unwatched-$$");
 ok($id, "Moved ticket? $message");
 ok($ticket_1->AdminCcAddresses =~ /watcher2\@example.com/ && $ticket_1->AdminCcAddresses =~ /watcher3\@example.com/, "Adds multiple AdminCcs on move out of watched queue");
 
+# doesn't add a second copy of the first watcher
+my @matches = ($ticket_1->AdminCcAddresses =~ /watcher1\@example.com/g);
+ok(@matches == 1, "Doesn't add multiple copies of the same address");
+
 1;