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