Update test.tcl