From b14d77dcf2a80671e857c7e85c4f387592c214e6 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Thu, 11 May 2017 15:29:52 -0500 Subject: [PATCH] Fix tools/test/*.plt 'use lib' lines This allows the tests to work when INSTALL_LOCATION is set. --- src/tools/test/Breaktable.plt | 3 +-- src/tools/test/DBD.plt | 3 +-- src/tools/test/Device.plt | 3 +-- src/tools/test/Driver.plt | 3 +-- src/tools/test/Function.plt | 3 +-- src/tools/test/Menu.plt | 3 +-- src/tools/test/Recfield.plt | 3 +-- src/tools/test/Recordtype.plt | 3 +-- src/tools/test/Registrar.plt | 3 +-- src/tools/test/Variable.plt | 3 +-- src/tools/test/macLib.plt | 3 +-- 11 files changed, 11 insertions(+), 22 deletions(-) diff --git a/src/tools/test/Breaktable.plt b/src/tools/test/Breaktable.plt index 36085d331..99df5457a 100644 --- a/src/tools/test/Breaktable.plt +++ b/src/tools/test/Breaktable.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 9; diff --git a/src/tools/test/DBD.plt b/src/tools/test/DBD.plt index d6e5676da..2bfe6ef48 100644 --- a/src/tools/test/DBD.plt +++ b/src/tools/test/DBD.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 18; diff --git a/src/tools/test/Device.plt b/src/tools/test/Device.plt index d362054c2..df5616890 100644 --- a/src/tools/test/Device.plt +++ b/src/tools/test/Device.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 16; diff --git a/src/tools/test/Driver.plt b/src/tools/test/Driver.plt index f78c66da9..17e3a0c78 100644 --- a/src/tools/test/Driver.plt +++ b/src/tools/test/Driver.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 2; diff --git a/src/tools/test/Function.plt b/src/tools/test/Function.plt index 6eb124fa8..130693293 100644 --- a/src/tools/test/Function.plt +++ b/src/tools/test/Function.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 2; diff --git a/src/tools/test/Menu.plt b/src/tools/test/Menu.plt index 1985fdf16..c68ba9a85 100644 --- a/src/tools/test/Menu.plt +++ b/src/tools/test/Menu.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 14; diff --git a/src/tools/test/Recfield.plt b/src/tools/test/Recfield.plt index bf92ea83d..cdad4dbb7 100644 --- a/src/tools/test/Recfield.plt +++ b/src/tools/test/Recfield.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 76; diff --git a/src/tools/test/Recordtype.plt b/src/tools/test/Recordtype.plt index 1c829ae49..c5384b7a9 100644 --- a/src/tools/test/Recordtype.plt +++ b/src/tools/test/Recordtype.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 17; diff --git a/src/tools/test/Registrar.plt b/src/tools/test/Registrar.plt index 2c203c016..b297077b4 100644 --- a/src/tools/test/Registrar.plt +++ b/src/tools/test/Registrar.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 2; diff --git a/src/tools/test/Variable.plt b/src/tools/test/Variable.plt index c8a1a023d..57f92e9a7 100644 --- a/src/tools/test/Variable.plt +++ b/src/tools/test/Variable.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 4; diff --git a/src/tools/test/macLib.plt b/src/tools/test/macLib.plt index 9aa455df7..d492c3bc1 100644 --- a/src/tools/test/macLib.plt +++ b/src/tools/test/macLib.plt @@ -1,7 +1,6 @@ #!/usr/bin/perl -use FindBin qw($Bin); -use lib "$Bin/../../../../lib/perl"; +use lib '../..'; use Test::More tests => 35;