summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-12-27 00:01:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-12-27 00:01:07 (GMT)
commit6ddeb240a8b2366627697111435c5da9aa575dd0 (patch)
treeb0fb2b3b202993ec577cd54f356cd7f27dff58d3 /tests
parent009a146e6edc065f4e9d015ad84a40a14c5a870f (diff)
downloadtcl-6ddeb240a8b2366627697111435c5da9aa575dd0.zip
tcl-6ddeb240a8b2366627697111435c5da9aa575dd0.tar.gz
tcl-6ddeb240a8b2366627697111435c5da9aa575dd0.tar.bz2
* generic/tclCmdIL.c (Tcl_LsortObjCmd): Fix crash when multiple -index
options are used. Simplified memory handling logic.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdIL.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index ca81ea5..b806e65 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdIL.test,v 1.43 2009/12/22 19:49:29 dkf Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.44 2010/12/27 00:01:07 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -458,6 +458,9 @@ test cmdIL-5.5 {lsort with list style index and sharing} -body {
} -result 0 -cleanup {
rename test_lsort ""
}
+test cmdIL-5.6 {lsort with multiple list-style index options} {
+ lsort -index {1 2 3} -index 0 {{a b} {c d} {b e}}
+} {{a b} {b e} {c d}}
# Compiled version
test cmdIL-6.1 {lassign command syntax} -returnCodes error -body {