2001-05-12  Mo DeJong  <mdejong@redhat.com>

	* tests/lindex.test: Add test for a nested list
	with a backslashed brace.

Index: tests/lindex.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/lindex.test,v
retrieving revision 1.7
diff -u -r1.7 lindex.test
--- tests/lindex.test   2000/04/10 17:19:01     1.7
+++ tests/lindex.test   2001/05/12 22:21:04
@@ -44,6 +44,9 @@
 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

