summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--tests/lindex.test5
2 files changed, 8 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 11ec9bd..b23f05d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2001-05-07 Miguel Sofer <msofer@users.sourceforge.net>
+ * tests/lindex.test: added test for nested braces [Patch: 423617]
+
+2001-05-07 Miguel Sofer <msofer@users.sourceforge.net>
+
* generic/tclInt.h
* generic/tclNamesp.c: invalidate all bytecodes in a namespace if
a new command shadows a bytecoded command.
diff --git a/tests/lindex.test b/tests/lindex.test
index ae1672c..b9500b4 100644
--- a/tests/lindex.test
+++ b/tests/lindex.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: lindex.test,v 1.7 2000/04/10 17:19:01 ericm Exp $
+# RCS: @(#) $Id: lindex.test,v 1.8 2001/05/15 14:45:00 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -44,6 +44,9 @@ test lindex-1.9 {basic tests} {
test lindex-1.10 {basic tests} {
lindex {a b c d} 3
} d
+test lindex-1.11 {Nested list with a backslashed brace} {
+ lindex {{a \{}} 0
+} {a \{}
test lindex-2.1 {error conditions} {
list [catch {lindex msg} msg] $msg