diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-07 09:59:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-07 09:59:56 (GMT) |
| commit | 8a7422b2dbef7976c8203efa9d44a7b29263e1ad (patch) | |
| tree | e396476dc8e24496d49e52180c11338f853ad4ef /tests | |
| parent | 88af143aea9955e563b7d6dd0af90eeb79fdc63e (diff) | |
| download | tcl-8a7422b2dbef7976c8203efa9d44a7b29263e1ad.zip tcl-8a7422b2dbef7976c8203efa9d44a7b29263e1ad.tar.gz tcl-8a7422b2dbef7976c8203efa9d44a7b29263e1ad.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')
| -rw-r--r-- | tests/stack.test | 3 |
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\ |