add tcl script, add test file