diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-28 20:39:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-28 20:39:08 (GMT) |
| commit | 58acf122398c693f3a99b458711b071301e10670 (patch) | |
| tree | f1538ea05cbfc6a3c8dd8f061ca44f7ad18e2f64 | |
| parent | f382ac98486d875787dc6b708fc22216a0246c48 (diff) | |
| download | tcl-58acf122398c693f3a99b458711b071301e10670.zip tcl-58acf122398c693f3a99b458711b071301e10670.tar.gz tcl-58acf122398c693f3a99b458711b071301e10670.tar.bz2 | |
Added test for [Bug 2130726].
| -rw-r--r-- | tests/lrepeat.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/lrepeat.test b/tests/lrepeat.test index a28dd27..7789e2f 100644 --- a/tests/lrepeat.test +++ b/tests/lrepeat.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: lrepeat.test,v 1.3 2008/09/26 21:05:57 dgp Exp $ +# RCS: @(#) $Id: lrepeat.test,v 1.4 2008/09/28 20:39:08 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -63,6 +63,9 @@ test lrepeat-1.7 {Accept zero repetitions (TIP 323)} { } -result {} } +test lrepeat-1.8 {Do not build enormous lists - Bug 2130992} -body { + lrepeat 0x10000000 a b c d e f g h +} -returnCodes error -result {too many elements in result list} ## Okay test lrepeat-2.1 {normal cases} { |