Posted to tcl by aspect at Tue May 12 02:34:23 GMT 2015view pretty
test next-tailcall-simple-1 "self method" -body { oo::class create Foo { method bar {} { puts abc tailcall puts hi puts xyz } method baz {} { puts a my bar puts b } } [Foo create foo] bar } -cleanup { rename Foo {} } -output [join {a abc hi b} \n]\n # ---- Output was: # abc # hi # # ---- Output should have been (exact matching): # a # abc # hi # b # replace "my" with [string cat my] for success