Re: [Xotcl] Checking to see if a class is defined

From: Michael Schlenker <schlenk_at_uni-oldenburg.de>
Date: Fri, 25 Jun 2004 16:07:55 +0200

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