TCL script testing