From 83d92bd747f9da3b8e3413897e5e36cc63eb938e Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 13 Jun 2018 15:59:15 +0000
Subject: Stop creating a stray child process.

---
 tests/main.test | 2 --
 1 file changed, 2 deletions(-)

diff --git a/tests/main.test b/tests/main.test
index 324b594..302f95e 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -1218,8 +1218,6 @@ namespace eval ::tcl::test::main {
 	Bug 1775878
     } -constraints {
 	exec Tcltest
-    } -setup {
-	catch {set f [open "|[list [interpreter]]" w+]}
     } -body {
 	exec [interpreter] << "testsetmainloop\nputs \\\npwd\ntestexitmainloop" >& result
 	set f [open result]
-- 
cgit v0.12