added test tcl script