Remove unneeded "global spawn_id" links in testsuite

diff --git a/testsuite/lib/gatekeeper.exp b/testsuite/lib/gatekeeper.exp
index e3a02202757b474ec2569af5e8e3d91931e53cf0..66461ff059fc1421e8eca692410e7674ce58b493 100644 (file)
--- a/testsuite/lib/gatekeeper.exp
+++ b/testsuite/lib/gatekeeper.exp
@@ -252,7 +252,6 @@ proc make_test_case { base_dir packlist } {
 }
 
 proc start_test_services { base_dir } {
-    global spawn_id
     upvar 1 minlog_id minlog_id minsmtp_id minsmtp_id
 
     set ::env(TEST_BASE_DIR) [file normalize $base_dir]
@@ -282,7 +281,6 @@ proc start_test_services { base_dir } {
     }
 }
 proc stop_test_services {} {
-    global spawn_id
     upvar 1 minlog_id minlog_id minsmtp_id minsmtp_id
 
     # stop minsmtpd
@@ -300,7 +298,6 @@ proc stop_test_services {} {
 }
 
 proc run_upload_batch_test {} {
-    global spawn_id
     global GATEKEEPER_TOOL PERL CHECK_COVERAGE
 
     # run test case

diff --git a/testsuite/lib/keymaster.exp b/testsuite/lib/keymaster.exp
index 9a108721a6576dd53da6cecf0cda1a66f00513de..4c7a3983afc1ff52acf3bc0767090772501ec8e8 100644 (file)
--- a/testsuite/lib/keymaster.exp
+++ b/testsuite/lib/keymaster.exp
@@ -164,7 +164,6 @@ proc register_test_packages { base_dir packlist } {
 }
 
 proc run_keymaster { test expected base_dir args } {
-    global spawn_id
     global KEYMASTER_TOOL PERL CHECK_COVERAGE
 
     # stabilize test names by inverting name mapping from do_package_test