diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-10-21 15:41:10 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-10-21 15:41:24 +1000 |
commit | a816789db66decac5cf7a7f73a59862dba8b6a20 (patch) | |
tree | 1363a3b0257da12648482fe74ec6789f6c2d0d07 /tests/tailcall.test | |
parent | 435b38eb1c90b32a2e99a89721943a1a00ac6788 (diff) | |
download | jimtcl-a816789db66decac5cf7a7f73a59862dba8b6a20.zip jimtcl-a816789db66decac5cf7a7f73a59862dba8b6a20.tar.gz jimtcl-a816789db66decac5cf7a7f73a59862dba8b6a20.tar.bz2 |
Tcl 8.6 can run most tailcall tests
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/tailcall.test')
-rw-r--r-- | tests/tailcall.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test index 262ab0f..027dfe8 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -1,5 +1,5 @@ source [file dirname [info script]]/testing.tcl -needs constraint jim + needs cmd tailcall needs cmd try tclcompat @@ -31,7 +31,8 @@ test tailcall-1.3 {Tailcall does return} { set x } {5} -test tailcall-1.4 {uplevel tailcall} { +# Note that Tcl can't do tailcall in uplevel +test tailcall-1.4 {uplevel tailcall} jim { proc a {} { set ::y [info level] } proc b {} { set ::x [info level]; uplevel 1 tailcall a} b |