[Rt-commit] r10728 - rt/branches/3.7-RTIR-RELENG/t/mail

[ruz at bestpractical.com]

Author: ruz
Date: Tue Feb  5 15:14:39 2008
New Revision: 10728

Modified:
   rt/branches/3.7-RTIR-RELENG/t/mail/crypt-gnupg.t

Log:
* turn off gnupg wornings and show log if something went wrong

Modified: rt/branches/3.7-RTIR-RELENG/t/mail/crypt-gnupg.t
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/t/mail/crypt-gnupg.t	(original)
+++ rt/branches/3.7-RTIR-RELENG/t/mail/crypt-gnupg.t	Tue Feb  5 15:14:39 2008
@@ -25,7 +25,9 @@
                  OutgoingMessagesFormat => 'RFC' );
 
 RT->Config->Set( 'GnuPGOptions',
-                 homedir => $homedir );
+                 homedir => $homedir,
+                 'no-permission-warning' => undef,
+);
 
 
 diag 'only signing. correct passphrase' if $ENV{'TEST_VERBOSE'};
@@ -37,7 +39,7 @@
     );
     my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => 'test' );
     ok( $entity, 'signed entity');
-    ok( !$res{'logger'}, "log is here as well" );
+    ok( !$res{'logger'}, "log is here as well" ) or diag $res{'logger'};
     my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} );
     is( scalar @status, 2, 'two records: passphrase, signing');
     is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct');