* generic/tclInt.h: Removed the "nsName" Tcl_ObjType from the

        * generic/tclNamesp.c:  registered set.  Revised the management of
        * generic/tclObj.c:     the intrep of that Tcl_ObjType.  Revised the
        * tests/obj.test:       TclGetNamespaceFromObj() routine to return
        TCL_ERROR and write a consistent error message when a namespace is
        not found.  [Bug 1588842.  Patch 1686862]

        ***POTENTIAL INCOMPATIBILITY***
        For callers of Tcl_GetObjType() on the name "nsName".

        * generic/tclExecute.c: Update TclGetNamespaceFromObj() callers.
        * generic/tclProc.c:

        * tests/apply.test:             Updated tests to expect new consistent
        * tests/namespace-old.test:     error message when a namespace is not
        * tests/namespace.test:         found.
        * tests/upvar.test:

1 files changed, 8 insertions, 8 deletions

diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index 7bfea61..1b0757e 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.test
@@ -14,10 +14,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: namespace-old.test,v 1.11 2006/11/23 15:35:31 dkf Exp $
+# RCS: @(#) $Id: namespace-old.test,v 1.12 2007/09/09 19:28:31 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2.2
     namespace import -force ::tcltest::*
 }
 
@@ -336,9 +336,9 @@ test namespace-old-5.9 {usage for "namespace children"} {
     list [catch {namespace children test_ns_hier1 y z} msg] $msg
 } {1 {wrong # args: should be "namespace children ?name? ?pattern?"}}
 
-test namespace-old-5.10 {command "namespace children" must get valid namespace} {
-    list [catch {namespace children xyzzy} msg] $msg
-} {1 {unknown namespace "xyzzy" in namespace children command}}
+test namespace-old-5.10 {command "namespace children" must get valid namespace} -body {
+    namespace children xyzzy
+} -returnCodes error -result {namespace "xyzzy" not found in "::"}
 
 test namespace-old-5.11 {querying namespace children} {
     lsort [namespace children :: test_ns_hier*]
@@ -372,9 +372,9 @@ test namespace-old-5.18 {usage for "namespace parent"} {
     list [catch {namespace parent x y} msg] $msg
 } {1 {wrong # args: should be "namespace parent ?name?"}}
 
-test namespace-old-5.19 {command "namespace parent" must get valid namespace} {
-    list [catch {namespace parent xyzzy} msg] $msg
-} {1 {unknown namespace "xyzzy" in namespace parent command}}
+test namespace-old-5.19 {command "namespace parent" must get valid namespace} -body {
+    namespace parent xyzzy
+} -returnCodes error -result {namespace "xyzzy" not found in "::"}
 
 test namespace-old-5.20 {querying namespace parent} {
     list [namespace eval :: {namespace parent}] \