Merge 9.0

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/package.test b/tests/package.test
index 1223d82..134b4f7 100644
--- a/tests/package.test
+++ b/tests/package.test
@@ -5,9 +5,9 @@
 # Sourcing this file into Tcl runs the tests and generates output for errors.
 # No output means no errors were found.
 #
-# Copyright (c) 1995-1996 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-# Copyright (c) 2011 Donal K. Fellows
+# Copyright © 1995-1996 Sun Microsystems, Inc.
+# Copyright © 1998-1999 Scriptics Corporation.
+# Copyright © 2011 Donal K. Fellows
 #
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -18,7 +18,7 @@ if {"::tcltest" ni [namespace children]} {
 }
 
 ::tcltest::loadTestedCommands
-catch [list package require -exact Tcltest [info patchlevel]]
+catch [list package require -exact tcl::test [info patchlevel]]
 
 # Do all this in a child interp to avoid garbaging the package list
 set i [interp create]
@@ -1340,7 +1340,7 @@ proc prefer {args} {
 
 test package-13.0 {package prefer defaults} -body {
     prefer
-} -result [expr {[string match {*[ab]*} [package provide Tcl]] ? "latest" : "stable"}]
+} -result [expr {[string match {*[ab]*} [package provide tcl]] ? "latest" : "stable"}]
 test package-13.1 {package prefer defaults} -body {
     set ::env(TCL_PKG_PREFER_LATEST) stable	;# value not relevant!
     prefer