summaryrefslogtreecommitdiffstats
path: root/tcl8.6/tests/stack.test
diff options
context:
space:
mode:
Diffstat (limited to 'tcl8.6/tests/stack.test')
-rw-r--r--tcl8.6/tests/stack.test62
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: