add tcltest.tcl 第一个测试脚本