summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-03-19 13:39:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-03-19 13:39:27 (GMT)
commit5829fc388d26d0d1ab80ee6e84cb1f6c9c8e0cf2 (patch)
tree574c8c48dc10e61723e7205267c0fa6aa92ba1d3 /tests
parent1d44a174235c0c57c938cc88cff5ec088146d4fa (diff)
downloadtcl-5829fc388d26d0d1ab80ee6e84cb1f6c9c8e0cf2.zip
tcl-5829fc388d26d0d1ab80ee6e84cb1f6c9c8e0cf2.tar.gz
tcl-5829fc388d26d0d1ab80ee6e84cb1f6c9c8e0cf2.tar.bz2
Added workaround for [Bug 1905562]
Diffstat (limited to 'tests')
-rw-r--r--tests/reg.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/reg.test b/tests/reg.test
index 63d4d3d..79eaaa0 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -9,7 +9,7 @@
#
# Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
#
-# RCS: @(#) $Id: reg.test,v 1.24 2007/12/18 10:53:16 dkf Exp $
+# RCS: @(#) $Id: reg.test,v 1.25 2008/03/19 13:39:28 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1063,7 +1063,8 @@ test reg-33.12 {Bug 1810264 - bad read} {
test reg-33.13 {Bug 1810264 - infinite loop} {
regexp {($|^)*} {x}
} 1
-test reg-33.14 {Bug 1810264 - super-expensive expression} {
+# Some environments have small default stack sizes. [Bug 1905562]
+test reg-33.14 {Bug 1810264 - super-expensive expression} nonPortable {
regexp {(x{200}){200}$y} {x}
} 0