X-Git-Url: http://git.ieval.ro/?p=app-edwardng.git;a=blobdiff_plain;f=t%2FApp-EdwardNG.t;h=55315242ecb16c4d5230c49d65d05ebe96f3bed4;hp=015e054d68898892171dda131067a2120a5c460a;hb=03793e5654f0abecc5de6838fa456a23bae630cc;hpb=bfafb6f35ad2aa20c4a80226cfe6e3d423708fcf

diff --git a/t/App-EdwardNG.t b/t/App-EdwardNG.t
index 015e054..5531524 100644
--- a/t/App-EdwardNG.t
+++ b/t/App-EdwardNG.t
@@ -5,10 +5,15 @@ use warnings;
 use constant KEYID => '34B22806';
 use constant EMAIL => 'EdwardNG (Key for testing EdwardNG) <edwardng@ieval.ro>';
 
+use File::Copy qw/cp/;
+use File::Temp qw/tempdir/;
 use Test::More tests => 20;
 BEGIN { use_ok('App::EdwardNG', qw/import_pubkeys process_message/) };
+
+umask 0077; # GPG doesn't like group-/world-readable homedirs
 $ENV{EDWARDNG_DEBUG} = $ENV{TEST_VERBOSE};
-$ENV{EDWARDNG_KEYDIR} = 't/keydir';
+$ENV{EDWARDNG_KEYDIR} = tempdir 'App-EdwardNG-test.XXXX', TMPDIR => 1, CLEANUP => 1;
+cp "t/keydir/$_", $ENV{EDWARDNG_KEYDIR} for qw/pubring.gpg secring.gpg/;
 
 my $contains_pubkey = App::EdwardNG::mp->parse_open('t/data/contains-pubkey');
 my @keys = import_pubkeys ($contains_pubkey, App::EdwardNG::mg);