summaryrefslogtreecommitdiffstats
path: root/tests/stack.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-07 09:59:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-07 09:59:56 (GMT)
commit816ab7a3aa86fad4029569275897b1d8feb0f89d (patch)
treee396476dc8e24496d49e52180c11338f853ad4ef /tests/stack.test
parent0498b26260e48f53a79c30db281432e57c78b966 (diff)
downloadtcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.zip
tcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.tar.gz
tcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.tar.bz2
Don't call "ulimit" on cygwin: On Cygwin the stack size cannot be modified, and the reported stacksize is much lower than the real one.
Diffstat (limited to 'tests/stack.test')
-rw-r--r--tests/stack.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/stack.test b/tests/stack.test
index e029bbd..44a960b 100644
--- a/tests/stack.test
+++ b/tests/stack.test
@@ -21,7 +21,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
# This doesn't catch all cases, for example threads of lower stacksize
# can still squeak through. A core check is really needed. -- JH
-if {[string equal $::tcl_platform(platform) "unix"]} {
+if {[string equal $::tcl_platform(platform) "unix"]
+ && ![string equal $::tcl_platform(os) "Windows NT"]} {
set stackSize [exec /bin/sh -c "ulimit -s"]
if {[string is integer $stackSize] && ($stackSize < 2400)} {
puts stderr "WARNING: the default application stacksize of $stackSize\