[Rt-commit] r13787 - in rt/3.8/trunk: .

[spang at bestpractical.com]

Author: spang
Date: Thu Jul  3 15:37:49 2008
New Revision: 13787

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/lib/RT/Test.pm

Log:
 r43590 at loki:  spang | 2008-07-03 17:59:40 +0100
 add function for absolute dirs, and fix import_gnupg_key


Modified: rt/3.8/trunk/lib/RT/Test.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Test.pm	(original)
+++ rt/3.8/trunk/lib/RT/Test.pm	Thu Jul  3 15:37:49 2008
@@ -632,6 +632,11 @@
     return File::Spec->catfile(get_relocateable_dir(@_), $file);
 }
 
+sub get_abs_relocateable_dir {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    return File::Spec->catdir(Cwd->getcwd(), $directories, @_);
+}
+
 sub import_gnupg_key {
     my $self = shift;
     my $key = shift;
@@ -648,7 +653,7 @@
     # of t/ will fail
     return RT::Crypt::GnuPG::ImportKey(
         RT::Test->file_content([get_relocateable_dir(File::Spec->updir(), 'data',
-        'gnupg', 'keys')), $key])
+        'gnupg', 'keys'), $key])
     );
 }