From: Jason Stephenson <jason@sigio.com>
Date: Thu, 3 May 2018 21:31:07 +0000 (-0400)
Subject: Lp 1768987: Use FindBin in 24-sql-gettext-unique.t.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=25dfa52a76c1a4b5d022fa1090a7d8b06a346249;p=evergreen%2Fjoelewis.git

Lp 1768987: Use FindBin in 24-sql-gettext-unique.t.

Use FindBin in the 24-sql-gettext-unique.t test file so that it can be
run from directories other than Open-ILS/src/perlmods.

To test
-------
[1] Apply the patch.
[2] From the root of the Evergreen checkout, run
    prove Open-ILS/src/perlmods/t/24-sql-gettext-unique.t
[3] Verify that the tests pass.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
---

diff --git a/Open-ILS/src/perlmods/t/24-sql-gettext-unique.t b/Open-ILS/src/perlmods/t/24-sql-gettext-unique.t
index 5df76ce08d..0645f08725 100644
--- a/Open-ILS/src/perlmods/t/24-sql-gettext-unique.t
+++ b/Open-ILS/src/perlmods/t/24-sql-gettext-unique.t
@@ -2,12 +2,13 @@ use strict;
 use warnings;
 use Test::More;
 use Test::Output;
+use FindBin;
 
 my $num_tests = 0;
 
 my $data;
 {
-    open(my $fh, "<", "../sql/Pg/950.data.seed-values.sql")
+    open(my $fh, "<", "$FindBin::Bin/../../sql/Pg/950.data.seed-values.sql")
         or die "Can't open 950.data.seed-values.sql: $!";
     local $/ = undef;
     $data = <$fh>;