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;