Run the tools/test files under the test harness

src/Makefile

@@ -15,6 +15,9 @@ include $(TOP)/configure/CONFIG
 
 DIRS += tools
 
+DIRS += tools/test
+tools/test_DEPEND_DIRS = tools
+
 DIRS += template/base
 template/base_DEPEND_DIRS = tools
 

src/tools/test/Breaktable.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 9;
 
 use DBD::Breaktable;

src/tools/test/DBD.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 18;
 
 use DBD;

src/tools/test/Device.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 16;
 
 use DBD::Device;

src/tools/test/Driver.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 2;
 
 use DBD::Driver;

src/tools/test/Function.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 2;
 
 use DBD::Function;

src/tools/test/Makefile

@@ -0,0 +1,26 @@
+#*************************************************************************
+# Copyright (c) 2012 UChicago Argonne LLC, as Operator of Argonne
+#     National Laboratory.
+# EPICS BASE is distributed subject to a Software License Agreement found
+# in the file LICENSE that is included with this distribution. 
+#*************************************************************************
+TOP=../../..
+
+include $(TOP)/configure/CONFIG
+
+TESTS += Breaktable
+TESTS += DBD
+TESTS += Device
+TESTS += Driver
+TESTS += Function
+TESTS += macLib
+TESTS += Menu
+TESTS += Recfield
+TESTS += Recordtype
+TESTS += Registrar
+TESTS += Variable
+
+TESTSCRIPTS_HOST += $(TESTS:%=%.t)
+
+include $(TOP)/configure/RULES
+

src/tools/test/Menu.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 14;
 
 use DBD::Menu;

src/tools/test/Recfield.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 76;
 
 use DBD::Recfield;

src/tools/test/Recordtype.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 17;
 
 use DBD::Recordtype;

src/tools/test/Registrar.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 2;
 
 use DBD::Registrar;

src/tools/test/Variable.plt

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin qw($Bin);
+use lib "$Bin/../../../../lib/perl";
+
 use Test::More tests => 4;
 
 use DBD::Variable;

src/tools/test/macLib.plt

@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use FindBin qw($Bin);
-use lib "$Bin/../../../lib/perl";
+use lib "$Bin/../../../../lib/perl";
 
 use Test::More tests => 34;