foo.itcl   [plain text]

source lib/testSessionClasses.itcl
source lib/testSessionFramework.itcl
source lib/testSessionUtils.itcl


namespace TestSession {
    Environment E0

    #E0 saveEnv
    E0 clearEnv
    puts [join [E0 <<] "\n"]
    
    exit

    foreach obj [info objects] {
	puts "$obj - [$obj <<]"
    }
}

::TestSession::clone_output "ERROR: testing"