TIP 590: Recommend lowercase Package Names

1 files changed, 3 insertions, 5 deletions

diff --git a/tests/safe-zipfs.test b/tests/safe-zipfs.test
index a97ed04..f67bc43 100644
--- a/tests/safe-zipfs.test
+++ b/tests/safe-zipfs.test
@@ -13,8 +13,6 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-package require Tcl 8.5-
-
 if {"::tcltest" ni [namespace children]} {
     package require tcltest 2.5
     namespace import -force ::tcltest::*
@@ -53,10 +51,10 @@ proc mapAndSortList {map listIn} {
 # thus un-autoindexed) APIs in this test result arguments:
 catch {safe::interpConfigure}
 
-# testing that nested and statics do what is advertised (we use a static
-# package - Tcltest - but it might be absent if we're in standard tclsh)
+# testing that nested and statics do what is advertised (we use a
+# package - tcl::test - but it might be absent if we're in standard tclsh)
 
-testConstraint TcltestPackage [expr {![catch {package require Tcltest}]}]
+testConstraint tcl::test [expr {![catch {package require tcl::test}]}]
 
 # Tests 5.* test the example files before using them to test safe interpreters.