diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-12-25 17:45:11 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-12-25 17:45:11 (GMT) |
commit | 5f5fd2864a3193a8d5da12fcb92ba7379084c286 (patch) | |
tree | bcdca927ed2a7b05c647b9a6bfdfd4a7ca5c730e /tcl8.6/tests/stack.test | |
parent | 535baffcecf6e738102fc12cda0109bc963e150f (diff) | |
download | blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.zip blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.tar.gz blt-5f5fd2864a3193a8d5da12fcb92ba7379084c286.tar.bz2 |
update tcl/tk
Diffstat (limited to 'tcl8.6/tests/stack.test')
-rw-r--r-- | tcl8.6/tests/stack.test | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/tcl8.6/tests/stack.test b/tcl8.6/tests/stack.test deleted file mode 100644 index 13bc524..0000000 --- a/tcl8.6/tests/stack.test +++ /dev/null @@ -1,62 +0,0 @@ -# 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-2000 Ajuba Solutions. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. - -package require tcltest 2 -namespace import ::tcltest::* - -# Note that a failure in this test may result in a crash of the executable. - -test stack-1.1 {maxNestingDepth reached on infinite recursion} -body { - # do this in a sub process in case it segfaults - exec [interpreter] << { - proc recurse {} { recurse } - catch { recurse } rv - puts $rv - } -} -result {too many nested evaluations (infinite loop?)} - -test stack-2.1 {maxNestingDepth reached on infinite recursion} -body { - # do this in a sub process in case it segfaults - exec [interpreter] << { - interp alias {} unknown {} notaknownproc - catch { unknown } msg - puts $msg - } -} -result {too many nested evaluations (infinite loop?)} - -# Make sure that there is enough stack to run regexp even if we're -# close to the recursion limit. [Bug 947070] [Patch 746378] -test stack-3.1 {enough room for regexp near recursion limit} -body { - # do this in a sub process in case it segfaults - exec [interpreter] << { - interp recursionlimit {} 10000 - set depth 0 - proc a { max } { - if { [info level] < $max } { - set ::depth [info level] - a $max - } else { - regexp {^ ?} x - } - } - catch { a 10001 } - set depth2 $depth - puts [list [a $depth] [expr { $depth2 - $depth }]] - } -} -result {1 1} - -# cleanup -::tcltest::cleanupTests -return - -# Local Variables: -# mode: tcl -# End: |