25 Jun
2004
25 Jun
'04
4:07 p.m.
Adam Turoff wrote:
I'm creating a test suite for an XOTcl class I'm writing, and I want to test this sequence:
(1) MyClass is undefined (initial state) --- package require MyClass succeeds (2) MyClass is defined (expected state after loading the package) (3) MyClass isa ::xotcl::Class (4) MyClass has methods x, y, z
However, I am not having any luck in testing #1 and #2. Is there any kind of introspection that can help me determine if a class is defined? Using [info exists MyClass] doesn't seem to work.
Try it simple, a defined class is just a tcl command:
if {[llength [info commands MyClass]]} { puts "Found MyClass" } else { puts "Not Found" }
Michael