diff options
author | stanton <stanton> | 1999-03-08 20:14:02 (GMT) |
---|---|---|
committer | stanton <stanton> | 1999-03-08 20:14:02 (GMT) |
commit | b825d52a6a6fc13fa86d2dd2b066dbc24ae954be (patch) | |
tree | 7ff9d7f16861bf93b582fd332bd79ffe4a8280a8 /tests/stack.test | |
parent | 2efea334f7d59bc5e801dd8d131acd64c4ae7874 (diff) | |
download | tcl-b825d52a6a6fc13fa86d2dd2b066dbc24ae954be.zip tcl-b825d52a6a6fc13fa86d2dd2b066dbc24ae954be.tar.gz tcl-b825d52a6a6fc13fa86d2dd2b066dbc24ae954be.tar.bz2 |
First pass at integrating stubs mechanism from 8.0.
Diffstat (limited to 'tests/stack.test')
-rw-r--r-- | tests/stack.test | 23 |
1 files changed, 23 insertions, 0 deletions
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?)} |