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

spang at bestpractical.com spang at bestpractical.com
Thu Jul 3 07:15:21 EDT 2008


Author: spang
Date: Thu Jul  3 07:15:21 2008
New Revision: 13763

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/t/shredder/00load.t
   rt/3.8/trunk/t/shredder/00skeleton.t
   rt/3.8/trunk/t/shredder/01basics.t
   rt/3.8/trunk/t/shredder/01ticket.t
   rt/3.8/trunk/t/shredder/02group_member.t
   rt/3.8/trunk/t/shredder/02queue.t
   rt/3.8/trunk/t/shredder/02template.t
   rt/3.8/trunk/t/shredder/02user.t
   rt/3.8/trunk/t/shredder/03plugin.t
   rt/3.8/trunk/t/shredder/03plugin_summary.t
   rt/3.8/trunk/t/shredder/03plugin_tickets.t
   rt/3.8/trunk/t/shredder/03plugin_users.t

Log:
 r43558 at loki:  spang | 2008-07-03 12:09:49 +0100
 make shredder/* use relative paths


Modified: rt/3.8/trunk/t/shredder/00load.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00load.t	(original)
+++ rt/3.8/trunk/t/shredder/00load.t	Thu Jul  3 07:15:21 2008
@@ -1,8 +1,14 @@
 use strict;
 use warnings;
+use File::Spec;
 use Test::More tests => 11;
 
-BEGIN { require "t/shredder/utils.pl" }
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 
 use_ok("RT::Shredder");
 

Modified: rt/3.8/trunk/t/shredder/00skeleton.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00skeleton.t	(original)
+++ rt/3.8/trunk/t/shredder/00skeleton.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 1;

Modified: rt/3.8/trunk/t/shredder/01basics.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01basics.t	(original)
+++ rt/3.8/trunk/t/shredder/01basics.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 3;

Modified: rt/3.8/trunk/t/shredder/01ticket.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01ticket.t	(original)
+++ rt/3.8/trunk/t/shredder/01ticket.t	Thu Jul  3 07:15:21 2008
@@ -5,10 +5,17 @@
 
 use Test::More;
 use Test::Deep;
+use File::Spec;
 
 plan tests => 15;
 
-BEGIN { require "t/shredder/utils.pl"; }
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
+
 init_db();
 create_savepoint('clean');
 

Modified: rt/3.8/trunk/t/shredder/02group_member.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02group_member.t	(original)
+++ rt/3.8/trunk/t/shredder/02group_member.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 22;

Modified: rt/3.8/trunk/t/shredder/02queue.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02queue.t	(original)
+++ rt/3.8/trunk/t/shredder/02queue.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 16;

Modified: rt/3.8/trunk/t/shredder/02template.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02template.t	(original)
+++ rt/3.8/trunk/t/shredder/02template.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 7;

Modified: rt/3.8/trunk/t/shredder/02user.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02user.t	(original)
+++ rt/3.8/trunk/t/shredder/02user.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 init_db();
 
 plan tests => 8;

Modified: rt/3.8/trunk/t/shredder/03plugin.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin.t	(original)
+++ rt/3.8/trunk/t/shredder/03plugin.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 
 my @PLUGINS = sort qw(Attachments Base Objects SQLDump Summary Tickets Users);
 plan tests => 7 + 3 * @PLUGINS;

Modified: rt/3.8/trunk/t/shredder/03plugin_summary.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_summary.t	(original)
+++ rt/3.8/trunk/t/shredder/03plugin_summary.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 
 plan tests => 4;
 

Modified: rt/3.8/trunk/t/shredder/03plugin_tickets.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_tickets.t	(original)
+++ rt/3.8/trunk/t/shredder/03plugin_tickets.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 
 plan tests => 44;
 

Modified: rt/3.8/trunk/t/shredder/03plugin_users.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_users.t	(original)
+++ rt/3.8/trunk/t/shredder/03plugin_users.t	Thu Jul  3 07:15:21 2008
@@ -5,7 +5,13 @@
 
 use Test::More;
 use Test::Deep;
-BEGIN { require "t/shredder/utils.pl"; }
+use File::Spec;
+BEGIN {
+    (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
+    my $shredder_utils = File::Spec->catfile(
+        File::Spec->catdir(File::Spec->curdir(), $directories), "utils.pl");
+    require $shredder_utils;
+}
 
 plan tests => 9;
 


More information about the Rt-commit mailing list