1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
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"