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

[sartak at bestpractical.com]

Author: sartak
Date: Thu Aug  9 15:02:54 2007
New Revision: 8482

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

Log:
 r37185 at gorgoroth:  sartak | 2007-08-09 15:02:42 -0400
 more failure modes


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	Thu Aug  9 15:02:54 2007
@@ -106,12 +106,39 @@
     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 };