Posted to tcl by aspect at Wed Sep 10 08:34:21 GMT 2014view pretty

oo::class create klass {
    superclass oo::class
    constructor args {
        next {*}$args

        set methods [info class methods [self object]]  ;# maybe use -all?
        assert {"foo" in $methods}
        # .. etc
    }
}

klass create Okay {
    method foo args {
        puts ok
    }
}

klass create Nope {
    method foo args {
        puts ok
    }
}