[Rt-commit] r8711 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: t/web

[sartak at bestpractical.com]

Author: sartak
Date: Thu Aug 23 17:37:48 2007
New Revision: 8711

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

Log:
 r38027 at gorgoroth:  sartak | 2007-08-23 17:37:38 -0400
 More fixes. now it actually checks for encryption :) but it's using the wrong email address for private key, probably


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t	Thu Aug 23 17:37:48 2007
@@ -40,9 +40,10 @@
 
 RT->Config->Set( 'GnuPGOptions',
                  homedir => $homedir,
-                 passphrase => 'rt-test',
                  'no-permission-warning' => undef);
 
+RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
+
 ok(my $user = RT::User->new($RT::SystemUser));
 ok($user->Load('root'), "Loaded user 'root'");
 $user->SetEmailAddress('recipient at example.com');
@@ -84,13 +85,17 @@
 for (@mail) {
     unlike $_, qr/Some content/, "outgoing mail was encrypted";
     my ($content_type) = /(Content-Type: .*)/;
+    my ($mime_version) = /(MIME-Version: .*)/;
     $_ = strip_headers($_);
+
     $_ = << "MAIL";
 From: recipient\@example.com
 To: general\@$RT::rtname
 Subject: This is just RT's response fed back into RT
+$mime_version
 $content_type
 
+
 $_
 MAIL
 
@@ -114,7 +119,6 @@
 
     like($attachments[0]->Content, qr/Some content/, "RT's mail includes copy of ticket text");
     like($attachments[0]->Content, qr/\@$RT::rtname/, "RT's mail includes this instance's name");
-
 }
 
 $m->get("$baseurl/Admin/Queues/Modify.html?id=$qid");