[Rt-commit] r14185 - in rtir/branches/2.3-TESTING/t: constituency mail

[ruz at bestpractical.com]

Author: ruz
Date: Wed Jul 16 19:42:54 2008
New Revision: 14185

Modified:
   rtir/branches/2.3-TESTING/t/021-gnupg-on-create.t
   rtir/branches/2.3-TESTING/t/023-gnupg-on-incident.t
   rtir/branches/2.3-TESTING/t/constituency/email_outgoing.t
   rtir/branches/2.3-TESTING/t/mail/skip_notification.t

Log:
* use clean_caught_mails instead of unlink

Modified: rtir/branches/2.3-TESTING/t/021-gnupg-on-create.t
==============================================================================
--- rtir/branches/2.3-TESTING/t/021-gnupg-on-create.t	(original)
+++ rtir/branches/2.3-TESTING/t/021-gnupg-on-create.t	Wed Jul 16 19:42:54 2008
@@ -68,7 +68,7 @@
 
 diag "check that things don't work if there is no key";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);
@@ -103,7 +103,7 @@
 
 diag "check that things still doesn't work if key is not trusted";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);
@@ -150,7 +150,7 @@
 
 diag "check that things still doesn't work if two keys are not trusted";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);
@@ -195,7 +195,7 @@
 
 diag "check that we see key selector even if only one key is trusted but there are more keys";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);
@@ -222,7 +222,7 @@
 
 diag "check that key selector works and we can select trusted key";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);
@@ -254,7 +254,7 @@
 
 diag "check encrypting of attachments";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
     $agent->form_number(3);

Modified: rtir/branches/2.3-TESTING/t/023-gnupg-on-incident.t
==============================================================================
--- rtir/branches/2.3-TESTING/t/023-gnupg-on-incident.t	(original)
+++ rtir/branches/2.3-TESTING/t/023-gnupg-on-incident.t	Wed Jul 16 19:42:54 2008
@@ -69,7 +69,7 @@
     my $inc_id = create_incident_for_ir( $agent, $ir_id, { Subject => 'test' } );
     ok $inc_id, 'created an Inc';
 
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_ticket( $inc_id ), "UI -> ticket #$inc_id";
     $agent->follow_link_ok( { text => 'Reply to Reporters' }, 'inc -> Reply to Reporters' );
@@ -103,7 +103,7 @@
     my $inc_id = create_incident_for_ir( $agent, $ir_id, { Subject => 'test' } );
     ok $inc_id, 'created an Inc';
 
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     ok $agent->goto_ticket( $inc_id ), "UI -> ticket #$inc_id";
     $agent->follow_link_ok( { text => 'Reply to Reporters' }, 'inc -> Reply to Reporters' );

Modified: rtir/branches/2.3-TESTING/t/constituency/email_outgoing.t
==============================================================================
--- rtir/branches/2.3-TESTING/t/constituency/email_outgoing.t	(original)
+++ rtir/branches/2.3-TESTING/t/constituency/email_outgoing.t	Wed Jul 16 19:42:54 2008
@@ -79,7 +79,7 @@
 
 diag "create an IR via base address";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
         my $text = <<EOF;
 From: @{[ $rtir_user->EmailAddress ]}
@@ -115,7 +115,7 @@
 
 diag "create an IR under GOVNET";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     my $text = <<EOF;
 From: @{[ $rtir_user->EmailAddress ]}
@@ -151,7 +151,7 @@
 
 diag "GOV user creates an IR under EDUNET, check addresses";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     $agent->login('govhandler', 'govhandler');
     my $id = create_ir(

Modified: rtir/branches/2.3-TESTING/t/mail/skip_notification.t
==============================================================================
--- rtir/branches/2.3-TESTING/t/mail/skip_notification.t	(original)
+++ rtir/branches/2.3-TESTING/t/mail/skip_notification.t	Wed Jul 16 19:42:54 2008
@@ -37,7 +37,7 @@
 
 diag "create an IR and check that we have outgoing email";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     my $email = $rtir_user->EmailAddress;
 
@@ -62,7 +62,7 @@
 
 diag "create an IR and check that 'SkipNotification' feature works";
 {
-    unlink "t/mailbox";
+    RT::Test->clean_caught_mails;
 
     my $email = $rtir_user->EmailAddress;