testobj.tcl: introduce command line interface