summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-09-28 20:39:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-09-28 20:39:08 (GMT)
commit58acf122398c693f3a99b458711b071301e10670 (patch)
treef1538ea05cbfc6a3c8dd8f061ca44f7ad18e2f64
parentf382ac98486d875787dc6b708fc22216a0246c48 (diff)
downloadtcl-58acf122398c693f3a99b458711b071301e10670.zip
tcl-58acf122398c693f3a99b458711b071301e10670.tar.gz
tcl-58acf122398c693f3a99b458711b071301e10670.tar.bz2
Added test for [Bug 2130726].
-rw-r--r--tests/lrepeat.test5
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} {