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

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 28 14:43:15 2007
New Revision: 8789

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

Log:
 r8712 at cubic-pc (orig r8711):  sartak | 2007-08-24 01:37:48 +0400
  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/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t	Tue Aug 28 14:43:15 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");