diff options
| -rw-r--r-- | tests/env.test | 6 | ||||
| -rw-r--r-- | tests/stack.test | 23 |
2 files changed, 26 insertions, 3 deletions
diff --git a/tests/env.test b/tests/env.test index 0a4df27..c66812b 100644 --- a/tests/env.test +++ b/tests/env.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: env.test,v 1.2 1998/09/14 18:40:08 stanton Exp $ +# RCS: @(#) $Id: env.test,v 1.3 1998/09/30 20:52:00 escoffon Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -67,7 +67,7 @@ puts $f { lrem names ComSpec lrem names "" } - foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH} { + foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { lrem names $name } foreach p $names { @@ -95,7 +95,7 @@ foreach name [array names env] { # Added the following lines so that child tcltest can actually find its # library if the initial tcltest is run from a non-standard place. # ('saved' env vars) -foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH} { +foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { if {[info exists env2($name)]} { set env($name) $env2($name); } diff --git a/tests/stack.test b/tests/stack.test new file mode 100644 index 0000000..2499220 --- /dev/null +++ b/tests/stack.test @@ -0,0 +1,23 @@ +# Tests that the stack size is big enough for the application. +# +# This file contains a collection of tests for one or more of the Tcl +# built-in commands. Sourcing this file into Tcl runs the tests and +# generates output for errors. No output means no errors were found. +# +# Copyright (c) 1998 by Scriptics Corporation. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: stack.test,v 1.1 1998/09/30 20:52:01 escoffon Exp $ + +if {[string compare test [info procs test]] == 1} then {source defs} + +# Note that a failure in this test results in a crash of the executable. + +test stack-1.1 {maxNestingDepth reached on infinite recursion} { + proc recurse {} { return [recurse] } + catch {recurse} rv + rename recurse {} + set rv +} {too many nested calls to Tcl_EvalObj (infinite loop?)} |