From 58acf122398c693f3a99b458711b071301e10670 Mon Sep 17 00:00:00 2001 From: dkf Date: Sun, 28 Sep 2008 20:39:08 +0000 Subject: Added test for [Bug 2130726]. --- tests/lrepeat.test | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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} { -- cgit v0.12