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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 28 16:22:01 2007
New Revision: 8817

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

Log:
 r37593 at onn:  sartak | 2007-08-28 16:21:52 -0400
 Well, the encryption is screwed up, but is it screwed up in a way that's worth testing? I guess so


Modified: rt/branches/3.7-EXPERIMENTAL/t/mail/gnupg-incoming.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/mail/gnupg-incoming.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/mail/gnupg-incoming.t	Tue Aug 28 16:22:01 2007
@@ -266,7 +266,7 @@
 print $mail <<"EOF";
 From: recipient\@example.com
 To: general\@$RT::rtname
-Subject: signed message for queue
+Subject: encrypted message for queue
 
 $buf
 EOF
@@ -294,12 +294,14 @@
     \*STDOUT
 );
 
+$buf =~ s/PGP MESSAGE/SCREWED UP/g;
+
 unlink 't/mailbox';
 $mail = RT::Test->open_mailgate_ok($baseurl);
 print $mail <<"EOF";
 From: recipient\@example.com
 To: general\@$RT::rtname
-Subject: signed message for queue
+Subject: encrypted message for queue
 
 $buf
 EOF
@@ -313,7 +315,7 @@
     my $tick = get_latest_ticket_ok();
     my $txn = $tick->Transactions->First;
     my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef};
-    unlike( $attach->Content, qr'really should not be there either');
+    unlike( ($attach ? $attach->Content : ''), qr'really should not be there either');
 }
 
 sub get_latest_ticket_ok {