[Xotcl] Checking to see if a class is defined

[Michael Schlenker]

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