diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-12-27 00:01:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-12-27 00:01:07 (GMT) |
| commit | 6ddeb240a8b2366627697111435c5da9aa575dd0 (patch) | |
| tree | b0fb2b3b202993ec577cd54f356cd7f27dff58d3 /tests | |
| parent | 009a146e6edc065f4e9d015ad84a40a14c5a870f (diff) | |
| download | tcl-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.test | 5 |
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 { |