[Rt-commit] r8494 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: .

[sartak at bestpractical.com]

Author: sartak
Date: Fri Aug 10 13:05:03 2007
New Revision: 8494

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-bad.t

Log:
 r37182 at gorgoroth:  sartak | 2007-08-09 14:40:25 -0400
 Add stubbed file for testing "bad" crypto mail


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-bad.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-bad.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-bad.t	Fri Aug 10 13:05:03 2007
@@ -106,39 +106,12 @@
     my $tick = get_latest_ticket_ok();
 }
 
-diag "revoked key" if $ENV{TEST_VERBOSE};
-{
-    my $mail = get_contents('revoked-key');
-    my ($status, $id) = RT::Test->send_via_mailgate($mail);
-    is ($status >> 8, 0, "The mail gateway exited normally");
-
-    my $tick = get_latest_ticket_ok();
-}
-
-diag "expired key" if $ENV{TEST_VERBOSE};
-{
-    my $mail = get_contents('expired-key');
-    my ($status, $id) = RT::Test->send_via_mailgate($mail);
-    is ($status >> 8, 0, "The mail gateway exited normally");
-
-    my $tick = get_latest_ticket_ok();
-}
-
-diag "unknown algorithm" if $ENV{TEST_VERBOSE};
-{
-    my $mail = get_contents('unknown-algorithm');
-    my ($status, $id) = RT::Test->send_via_mailgate($mail);
-    is ($status >> 8, 0, "The mail gateway exited normally");
-
-    my $tick = get_latest_ticket_ok();
-}
-
 sub get_contents {
     my $pattern = shift;
 
     my $file = glob("lib/t/data/mail/*$pattern*");
     defined $file
-        or do { diag "Unable to find lib/t/data/mail/*$pattern*"; return };
+        or do { diag "Unable to find lib/t/data/mail/*$pattern-*"; return };
 
     open my $mailhandle, '<', $file
         or do { diag "Unable to read $file: $!"; return };