Index: tests/tcl86.test =================================================================== diff -u -rc2baf6c2b4e9a88c3580bdadf5e735dfe96d7f10 -r2b8b3b10404d6e67ce420e8e2a2fda57991d7c5f --- tests/tcl86.test (.../tcl86.test) (revision c2baf6c2b4e9a88c3580bdadf5e735dfe96d7f10) +++ tests/tcl86.test (.../tcl86.test) (revision 2b8b3b10404d6e67ce420e8e2a2fda57991d7c5f) @@ -5,22 +5,16 @@ # just 8.6 or newer if {[info command yield] eq ""} return -# The test with the head version is currently broken (leads to a crash -# between ==5 and ==5a); so deactivate for now -return # # Test coroutine / yield # Test case number-generator { nx::Object create ::numbers { # set instance variable used in coroutine set :delta 2 - :public method ++ {} { + :public method ++ {} { yield - ::nsf::__db_show_stack - puts stderr ====5 set i 0 - puts stderr ====5a while 1 { yield $i incr i ${:delta} @@ -32,7 +26,6 @@ set ::j 0 # use coroutine for {set i 0} {$i < 10} {incr i} { - puts stderr ====10 incr ::j [nextNumber] }