1 files changed, 21 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/lib/foo.itcl b/contrib/bluegnu2.0.3/lib/foo.itcl
new file mode 100644
index 0000000..cd2c6f0
--- /dev/null
+++ b/contrib/bluegnu2.0.3/lib/foo.itcl
@@ -0,0 +1,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"