From 25dfa52a76c1a4b5d022fa1090a7d8b06a346249 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Thu, 3 May 2018 17:31:07 -0400 Subject: [PATCH] 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 Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/t/24-sql-gettext-unique.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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>; -- 2.11.0