summaryrefslogtreecommitdiffstats
path: root/tests/parseOld.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/parseOld.test')
-rw-r--r--tests/parseOld.test11
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/parseOld.test b/tests/parseOld.test
index 6f63e7d..746e3e3 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -1,4 +1,4 @@
-# Commands covered: set (plus basic command syntax). Also tests the
+\\\\\# Commands covered: set (plus basic command syntax). Also tests the
# procedures in the file tclOldParse.c. This set of tests is an old
# one that predates the new parser in Tcl 8.1.
#
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: parseOld.test,v 1.4 1999/06/26 20:55:08 rjohnson Exp $
+# RCS: @(#) $Id: parseOld.test,v 1.5 1999/07/02 06:41:29 welch Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -185,10 +185,9 @@ test parseOld-5.11 {array variable substitution} {
set b a$!
set b
} {a$!}
-test parseOld-5.12 {array variable substitution} {
- set b a$()
- set b
-} {a$()}
+test parseOld-5.12 {empty array name support} {
+ list [catch {set b a$()} msg] $msg
+} {1 {can't read "()": no such variable}}
catch {unset a}
test parseOld-5.13 {array variable substitution} {
catch {unset a}