# 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.2 2001/09/14 01:43:49 zlaski 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?)}