From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 25 Mar 2023 01:02:22 +0000 (-0500)
Subject: Remove unneeded "global spawn_id" links in testsuite
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=fa8f029e4726b4bc1fc3a7f00216965a6dafd25b;p=gatekeeper.git

Remove unneeded "global spawn_id" links in testsuite
---

diff --git a/testsuite/lib/gatekeeper.exp b/testsuite/lib/gatekeeper.exp
index e3a0220..66461ff 100644
--- 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 9a10872..4c7a398 100644
--- 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