summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-03-21 12:26:56 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-03-21 12:26:56 (GMT)
commit30abb158de1f9a67dce9c82012db2b1c826107bd (patch)
tree4f6d2f6d22d1cf52903a1a56eeb25e589e85ab88 /tests
parent24ad5055202aab332c748c20e2bd0471e3aab234 (diff)
downloadtcl-30abb158de1f9a67dce9c82012db2b1c826107bd.zip
tcl-30abb158de1f9a67dce9c82012db2b1c826107bd.tar.gz
tcl-30abb158de1f9a67dce9c82012db2b1c826107bd.tar.bz2
forgot one file :}
Diffstat (limited to 'tests')
-rw-r--r--tests/tailcall.test27
1 files changed, 25 insertions, 2 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test
index f67a5e9..c0e7cdb 100644
--- a/tests/tailcall.test
+++ b/tests/tailcall.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: tailcall.test,v 1.5 2009/03/21 11:46:10 msofer Exp $
+# RCS: @(#) $Id: tailcall.test,v 1.6 2009/03/21 12:26:56 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -143,7 +143,30 @@ test tailcall-0.5 {tailcall is constant space} -constraints testnrelevels -setup
rename b {}
} -result {0 0 0 0 0 0}
-test tailcall-0.6 {tailcall is constant space} -constraints testnrelevels -setup {
+test tailcall-0.6 {tailcall is constant space} -constraints {testnrelevels knownBug} -setup {
+ #
+ # This test fails because ns-unknown is not NR-enabled
+ #
+ proc c i {
+ if {[incr i] > 10} {
+ return [depthDiff]
+ }
+ depthDiff
+ tailcall a b $i
+ }
+ proc d {ens sub args} {
+ return [list $ens c]
+ }
+ namespace ensemble create -command a -unknown d
+} -body {
+ a b 0
+} -cleanup {
+ rename a {}
+ rename c {}
+ rename d {}
+} -result {0 0 0 0 0 0}
+
+test tailcall-0.7 {tailcall is constant space} -constraints testnrelevels -setup {
oo::class create foo {
method b i {
if {[incr i] > 10} {