summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-05 14:33:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-05 14:33:07 (GMT)
commit66b1b7dda9580db59b81a9fe27b553015e5a65bd (patch)
tree190791446db062c9834440e628d58d9fbd9e3041 /tests
parentefd8d84c13dfd2bde1cc1fbb9ede4094ac9afe99 (diff)
downloadtcl-66b1b7dda9580db59b81a9fe27b553015e5a65bd.zip
tcl-66b1b7dda9580db59b81a9fe27b553015e5a65bd.tar.gz
tcl-66b1b7dda9580db59b81a9fe27b553015e5a65bd.tar.bz2
More consistency in errorcode generation.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdAH.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 182d43b..f7ba584 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdAH.test,v 1.67 2009/12/28 12:55:48 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.68 2010/02/05 14:33:09 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1051,7 +1051,7 @@ test cmdAH-23.6 {Tcl_FileObjCmd: lstat errors} -setup {
} -body {
set x 44
list [catch {file lstat $gorpfile x} msg] $msg $errorCode
-} -result {1 {can't set "x(dev)": variable isn't array} {TCL LOOKUP VARNAME}}
+} -result {1 {can't set "x(dev)": variable isn't array} {TCL LOOKUP VARNAME x}}
catch {unset stat}
# mkdir
set dirA [file join [temporaryDirectory] a]