[Rt-commit] r7666 - rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail

[clkao at bestpractical.com]

Author: clkao
Date: Tue Apr 24 03:21:25 2007
New Revision: 7666

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-incoming.t

Log:
accept incoming mail signed by key other than originator

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-incoming.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-incoming.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-incoming.t	Tue Apr 24 03:21:25 2007
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 use strict;
-use Test::More tests => 46;
+use Test::More tests => 45;
 use File::Temp;
 use RT::Test;
 use Cwd 'getcwd';
@@ -118,7 +118,7 @@
     \$buf,
     \*STDOUT
 );
-diag $buf;
+
 $mail = RT::Test->open_mailgate_ok($baseurl);
 print $mail <<"EOF";
 From: recipient\@example.com
@@ -200,7 +200,7 @@
         '--homedir'     => $homedir,
         '--passphrase'  => 'test',
     ),
-    \"should not be there\r\n",
+    \"alright\r\n",
     \$buf,
     \*STDOUT
 );
@@ -219,7 +219,11 @@
     my $tick = get_latest_ticket_ok();
     my $txn = $tick->Transactions->First;
     my $attach = $txn->Attachments->First;
-    unlike( $attach->Content, qr'should not be there');
+    like( $attach->Content, qr'alright');
+    is( $attach->GetHeader('X-RT-Incoming-Signature'),
+        'Test User <rt at example.com>',
+        'recorded incoming mail signed by others'
+    );
 }
 
 # test for encrypted mail with key not associated to the queue