测试Tcl程序,运行Tcl文件。