第1页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共15页Tcl集成测试环境搭建指南博为峰软件技术有限公司www.51testing.com2006年1月第2页共15页第1页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共15页修订记录日期修订版本修改章节修改描述作者2006-1-171.0初稿完成周峰第3页共15页第2页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共15页第一步:获取tcl8.3的安装包，安装到c:\目录下（安装时一定要选取lib库安装）。第二步:利用VisualC++建立一个Win32ConsoleApplication工程，工程的名字为CounterTest。因为被测对象有MFC类，所以该工程应该支持MFC：第4页共15页第3页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共15页第三步：参照下面两个图，分别创建test.h和test.cpp文件。这两个文件均为空文件。第5页共15页第4页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第5页共15页第四步：添加被测试模块的代码1）把下面的代码拷贝到文件test.cpp中：第6页共15页第5页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第6页共15页2）把下面的代码拷贝到文件test.h中第五步：添加tcl扩展指令代码1）把下面的代码拷贝到文件CounterTest.cpp中：#include"tcl.h"#include"test.h"第六步：1）定义tcl解释器：通过使用TCL内部的数据类型Tcl_Interp定义TCL解释器全局变量。在文件CounterTest.cpp中定义tcl解释器，即全局变量：Tcl_Interp*MyInterp;例如：（红色部分为添加的代码）//定义解释器Tcl_Interp*MyInterp;2）创建解释器：通过使用TCL函数Tcl_CreateInterp（）创建解释器。在文件CounterTest.cpp中创建tcl解释器，例如：（红色部分代码）int_tmain(intargc,TCHAR*argv[],TCHAR*envp[]){intnRetCode=0;//initializeMFCandprintanderroronfailureif(!AfxWinInit(::GetModuleHandle(NULL),NULL,::GetCommandLine(),0)){//TODO:changeerrorcodetosuityourneedscerr<<_T("FatalError:MFCinitializationfailed")<
