From 8dcba4c58ce0027634e5a0569e07e41352b5aefd Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Mon, 24 Feb 2025 12:56:22 +0000
Subject: avoid "can't read "::tcltestlib": no such variable" in tests *io-60.1
 if load catches a fail for some reason

---
 tests/chanio.test | 1 +
 tests/io.test     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/tests/chanio.test b/tests/chanio.test
index fb566d4..54c566f 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -29,6 +29,7 @@ namespace eval ::tcl::test::io {
     variable msg
     variable expected
 
+    set ::tcltestlib {}
     catch {
 	::tcltest::loadTestedCommands
 	package require -exact Tcltest [info patchlevel]
diff --git a/tests/io.test b/tests/io.test
index 1e17c43..adffd89 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -29,6 +29,7 @@ namespace eval ::tcl::test::io {
     variable msg
     variable expected
 
+    set ::tcltestlib {}
     catch {
 	::tcltest::loadTestedCommands
 	package require -exact Tcltest [info patchlevel]
-- 
cgit v0.12