[Rt-commit] r8513 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: . lib/t/data/crypt-gnupg lib/t/data/crypt-gnupg-realmail

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug 13 13:00:06 2007
New Revision: 8513

Added:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg-realmail/rt-recipient-pubkey
      - copied unchanged from r8499, /rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg/rt-recipient-pubkey
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg-realmail/rt-recipient-seckey
      - copied unchanged from r8499, /rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg/rt-recipient-seckey
Removed:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg/rt-recipient-pubkey
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/t/data/crypt-gnupg/rt-recipient-seckey
Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t

Log:
 r37260 at gorgoroth:  sartak | 2007-08-10 13:04:27 -0400
 import ternus' keys into pubring.gpg
 r37264 at gorgoroth:  sartak | 2007-08-10 13:17:40 -0400
 some test file fixes
 r37266 at gorgoroth:  sartak | 2007-08-10 13:30:49 -0400
 Split the gnupg faux-homedir we're using because having two private keys
 makes other gpg tests sad
 r37360 at gorgoroth:  sartak | 2007-08-13 12:27:05 -0400
 Move the rt-recipient keypair into the right folder
 r37361 at gorgoroth:  sartak | 2007-08-13 12:58:03 -0400
 glob in scalar context doesn't do what I mean


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t	Mon Aug 13 13:00:06 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests => 59;
+use Test::More tests => 160;
 use File::Temp;
 use RT::Test;
 use Cwd 'getcwd';
@@ -31,7 +31,7 @@
         for my $attachment (qw/plain text-attachment binary-attachment/) {
             ++$eid;
             diag "Email $eid: $usage, $attachment email with $format key" if $ENV{TEST_VERBOSE};
-            my $ok = email_ok($eid, $usage, $format, $attachment);
+            my $ok = eval { email_ok($eid, $usage, $format, $attachment) };
             ok($ok, "$usage, $attachment email with $format key");
         }
     }
@@ -40,7 +40,7 @@
 sub get_contents {
     my $eid = shift;
 
-    my $file = glob("lib/t/data/mail/$eid-*");
+    my ($file) = glob("lib/t/data/mail/$eid-*");
     defined $file
         or do { diag "Unable to find lib/t/data/mail/$eid-*"; return };