From 34a368eae9db62d89a49e55d01c49c8c6f28f30e Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Mon, 31 Aug 2015 13:32:13 -0700
Subject: change test utils to run from the source tree, #37340

---
 FS-Test/bin/freeside-test-fetch | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'FS-Test/bin/freeside-test-fetch')

diff --git a/FS-Test/bin/freeside-test-fetch b/FS-Test/bin/freeside-test-fetch
index ccc8528ff..953005704 100755
--- a/FS-Test/bin/freeside-test-fetch
+++ b/FS-Test/bin/freeside-test-fetch
@@ -1,8 +1,14 @@
 #!/usr/bin/perl
 
 use strict;
-use FS::Test;
 use Getopt::Std;
+use File::Spec;
+
+my @dirs = File::Spec->splitdir(File::Spec->rel2abs(__FILE__));
+splice @dirs, -2; # bin/freeside-test-run
+push @INC, File::Spec->catdir( @dirs, 'lib' );
+eval "use FS::Test;";
+die $@ if $@;
 
 my %opt;
 
-- 
cgit v1.2.1