Artifact
6d51f1b7c08e413fdbf22f48a4702d2872013cbe:
Attachment "patch" to
ticket [423617ffff]
added by
mdejong
2001-05-13 05:30:39.
2001-05-12 Mo DeJong <[email protected]>
* 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