Added a lot of meat to test.tcl... example in 001_basic.tcl