summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2001-05-15 14:45:00 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2001-05-15 14:45:00 (GMT)
commitb69b80f6e877387613c403f8ec9dbb238e5b898d (patch)
tree4447e9cf60b87fe49dcd2c88e0df276b0e924ecb /tests
parent78889206e8a882e866563ebd0ff5e1309edb4288 (diff)
downloadtcl-b69b80f6e877387613c403f8ec9dbb238e5b898d.zip
tcl-b69b80f6e877387613c403f8ec9dbb238e5b898d.tar.gz
tcl-b69b80f6e877387613c403f8ec9dbb238e5b898d.tar.bz2
[Patch: 423617]
Diffstat (limited to 'tests')
-rw-r--r--tests/lindex.test5
1 files changed, 4 insertions, 1 deletions
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