testobj.tcl: re-factor