[Rt-commit] r13777 - in rt/3.8/trunk: t/mail

[spang at bestpractical.com]

Author: spang
Date: Thu Jul  3 15:35:03 2008
New Revision: 13777

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/t/mail/crypt-gnupg.t
   rt/3.8/trunk/t/mail/gnupg-bad.t
   rt/3.8/trunk/t/mail/gnupg-incoming.t
   rt/3.8/trunk/t/mail/gnupg-realmail.t
   rt/3.8/trunk/t/mail/gnupg-reverification.t

Log:
 r43575 at loki:  spang | 2008-07-03 13:24:34 +0100
 make t/mail/*gnupg*.t relocateable


Modified: rt/3.8/trunk/t/mail/crypt-gnupg.t
==============================================================================
--- rt/3.8/trunk/t/mail/crypt-gnupg.t	(original)
+++ rt/3.8/trunk/t/mail/crypt-gnupg.t	Thu Jul  3 15:35:03 2008
@@ -17,7 +17,10 @@
 
 use File::Spec ();
 use Cwd;
-my $homedir = File::Spec->catdir( cwd(), qw(t data gnupg keyrings) );
+
+(my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+my $homedir = File::Spec->catdir( cwd(), $directories, File::Spec->updir(),
+    qw(data gnupg keyrings) );
 mkdir $homedir;
 
 use_ok('RT::Crypt::GnuPG');

Modified: rt/3.8/trunk/t/mail/gnupg-bad.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-bad.t	(original)
+++ rt/3.8/trunk/t/mail/gnupg-bad.t	Thu Jul  3 15:35:03 2008
@@ -14,7 +14,9 @@
 
 use Cwd 'getcwd';
 
-my $homedir = File::Spec->catdir( getcwd(), qw(t data gnupg keyrings) );
+(my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+my $homedir = File::Spec->catdir( getcwd(), $directories, File::Spec->updir(),
+    qw(data gnupg keyrings) );
 
 RT->Config->Set( LogToScreen => 'debug' );
 RT->Config->Set( 'GnuPG',

Modified: rt/3.8/trunk/t/mail/gnupg-incoming.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-incoming.t	(original)
+++ rt/3.8/trunk/t/mail/gnupg-incoming.t	Thu Jul  3 15:35:03 2008
@@ -17,7 +17,9 @@
 use String::ShellQuote 'shell_quote';
 use IPC::Run3 'run3';
 
-my $homedir = File::Spec->catdir( getcwd(), qw(t data gnupg keyrings) );
+(my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+my $homedir = File::Spec->catdir( getcwd(), $directories, File::Spec->updir(),
+    qw(data gnupg keyrings) );
 
 # catch any outgoing emails
 RT::Test->set_mail_catcher;

Modified: rt/3.8/trunk/t/mail/gnupg-realmail.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-realmail.t	(original)
+++ rt/3.8/trunk/t/mail/gnupg-realmail.t	Thu Jul  3 15:35:03 2008
@@ -69,7 +69,10 @@
     my ($eid, $usage, $format, $attachment) = @_;
     diag "email_ok $eid: $usage, $format, $attachment" if $ENV{'TEST_VERBOSE'};
 
-    my ($file) = glob("t/data/gnupg/emails/$eid-*");
+    (my $volume, my $directories, my $file_new) = File::Spec->splitpath($0);
+    my $emaildatadir = File::Spec->catdir( File::Spec->curdir(), $directories,
+        File::Spec->updir(), qw(data gnupg emails));
+    my ($file) = glob("$emaildatadir/$eid-*");
     my $mail = RT::Test->file_content($file);
 
     my ($status, $id) = RT::Test->send_via_mailgate($mail);

Modified: rt/3.8/trunk/t/mail/gnupg-reverification.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-reverification.t	(original)
+++ rt/3.8/trunk/t/mail/gnupg-reverification.t	Thu Jul  3 15:35:03 2008
@@ -49,7 +49,10 @@
 
 my @ticket_ids;
 
-my @files = glob("t/data/gnupg/emails/*-signed-*");
+(my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+my $emaildatadir = File::Spec->catdir( File::Spec->curdir(), $directories,
+    File::Spec->updir(), qw(data gnupg emails) );
+my @files = glob("$emaildatadir/*-signed-*");
 foreach my $file ( @files ) {
     diag "testing $file" if $ENV{'TEST_VERBOSE'};