runtests: tightened servers package exports

The defaults are intended for runtests.pl, whereas runner.pm needs to
explicitly specify them.

diff --git a/tests/devtest.pl b/tests/devtest.pl
index 1535423c279c4e5706b6e5769e4ca24ae07df40d..ae6ec090ecae12517dde8cebb305dac9dc6aed51 100755 (executable)
--- a/tests/devtest.pl
+++ b/tests/devtest.pl
@@ -49,7 +49,12 @@ BEGIN {
 }
 
 use globalconfig;
-use servers;
+use servers qw(
+    initserverconfig
+    protoport
+    serverfortest
+    stopservers
+);
 use runner qw(
     readtestkeywords
     singletest_preprocess

diff --git a/tests/runner.pm b/tests/runner.pm
index a4851b8cfbc5f16d9ec46d2b3c8dcda2ecc04e2c..69fe323c84143d9b55de68c0cfc3c0c0f12b0805 100644 (file)
--- a/tests/runner.pm
+++ b/tests/runner.pm
@@ -33,19 +33,19 @@ BEGIN {
     use base qw(Exporter);
 
     our @EXPORT = qw(
+        checktestcmd
         prepro
         restore_test_env
         runner_test_preprocess
         runner_test_run
-        checktestcmd
         $DBGCURL
+        $gdb
         $gdbthis
         $gdbxwin
         $shallow
         $tortalloc
         $valgrind_logfile
         $valgrind_tool
-        $gdb
     );
 
     # these are for debugging only
@@ -61,8 +61,13 @@ use pathhelp qw(
 use processhelp qw(
     portable_sleep
     );
-
-use servers;
+use servers qw(
+    checkcmd
+    serverfortest
+    stopserver
+    stopservers
+    subvariables
+    );
 use getpart;
 use globalconfig;
 use testutil;

diff --git a/tests/servers.pm b/tests/servers.pm
index fce537efb51be17c6bdc2aa1af1fc31775ee0308..241e0e5d7c3a4697ed5cf7b9ca7f088212582ac7 100644 (file)
--- a/tests/servers.pm
+++ b/tests/servers.pm
@@ -54,14 +54,24 @@ BEGIN {
 
         # functions
         qw(
+            clearlocks
             initserverconfig
+            stopservers
+        )
+    );
+
+    our @EXPORT_OK = (
+        # functions
+        qw(
             checkcmd
-            clearlocks
-            protoport
             serverfortest
             stopserver
-            stopservers
             subvariables
+        ),
+
+        # for debugging only
+        qw(
+            protoport
         )
     );
 }