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

sartak at bestpractical.com sartak at bestpractical.com
Mon Aug 13 12:58:54 EDT 2007


Author: sartak
Date: Mon Aug 13 12:58:53 2007
New Revision: 8511

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	Mon Aug 13 12:58:53 2007
@@ -8,7 +8,7 @@
 use String::ShellQuote 'shell_quote';
 use IPC::Run3 'run3';
 
-my $homedir = File::Spec->catdir( getcwd(), qw(lib t data crypt-gnupg-realmail) );
+my $homedir = File::Spec->catdir( getcwd(), qw(lib t data crypt-gnupg) );
 
 RT->Config->Set( LogToScreen => 'debug' );
 RT->Config->Set( 'GnuPG',
@@ -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 };


More information about the Rt-commit mailing list