tcl集成测试环境搭建指南电子版本

1、Good is good, but better carries it.精益求精，善益求善。tcl集成测试环境搭建指南-Tcl集成测试环境搭建指南交大慧谷培训中心慧谷博为峰软件测试工作室2004年5月修订记录日期修订版本修改章节修改描述作者2004-5-271.0初稿完成王威第一步:获取tcl8.3的安装包，安装到c:目录下。第二步:利用VisualC+建立一个基于对话框的工程，工程的名字为CounterTest。第三步：参照下面两个图，分别创建然后创建test.h和test.cpp文件，然后创建Tcl_ExCounter.h和Tcl_ExCounter.cpp文件。这四个文件均为空文件。第四

2、步：添加被测试模块的代码1）把下面的代码拷贝到文件test.cpp中：2）把下面的代码拷贝到文件test.h中第五步：添加tcl扩展指令代码1）把下面的代码拷贝到文件Tcl_ExCounter.h中：#includetcl.hintTclEx_Counter(ClientDataclientData,Tcl_Interp*interp,intargc,char*argv);2）把下面的代码拷贝到文件Tcl_ExCounter.cpp中#includestdafx.h#includeTcl_ExCounter.h#includetest.hintTclEx_Counter(ClientDatac

3、lientData,Tcl_Interp*interp,intargc,char*argv)returnTCL_OK;第六步：定义tcl解释器，通过使用TCL内部的数据类型Tcl_Interp定义TCL解释器全局变量。1）在文件CounterTestDlg.cpp中定义tcl解释器，即全局变量：Tcl_Interp*MyInterp;例如：（红色部分为添加的代码）Tcl_Interp*MyInterp;classCAboutDlg:publicCDialogpublic:CAboutDlg();/DialogData/AFX_DATA(CAboutDlg)enumIDD=IDD_ABOUTBO

4、X;/AFX_DATA2）在文件CounterTestDlg.cpp中创建并加载tcl解释器：（红色代码为新增代码）BOOLCCounterTestDlg:OnInitDialog()CDialog:OnInitDialog();/AddAbout.menuitemtosystemmenu./IDM_ABOUTBOXmustbeinthesystemcommandrange.ASSERT(IDM_ABOUTBOX&0 xFFF0)=IDM_ABOUTBOX);ASSERT(IDM_ABOUTBOXAppendMenu(MF_SEPARATOR);pSysMenu-AppendMenu(MF_S

5、TRING,IDM_ABOUTBOX,strAboutMenu);/Settheiconforthisdialog.Theframeworkdoesthisautomatically/whentheapplicationsmainwindowisnotadialogSetIcon(m_hIcon,TRUE);/SetbigiconSetIcon(m_hIcon,FALSE);/Setsmallicon/TODO:Addextrainitializationhere/创建tcl解释器MyInterp=Tcl_CreateInterp();/Tcl_UserInit为自定义的函数，用来初始化Tcl

6、解释器，并且创建扩展指令if(Tcl_UserInit(MyInterp)AfxMessageBox(TCLinitializeError!);returnFALSE;returnTRUE;/returnTRUEunlessyousetthefocustoacontrol3)在文件CounterTestDlg.cpp，定义函数Tcl_UserInit，用来初始化Tcl解释器，并创建外部命令COUNTER。intTcl_UserInit(Tcl_Interp*interp)/初始化Tcl解释器Tcl_Init(interp);/创建外部命令COUNTER，该外部命令可以被tcl解释器识别，并且执

7、行COUNTER命令的时候，直/接调用外部命令函数TclEx_Counter。Tcl_CreateCommand(interp,COUNTER,TclEx_Counter,NULL,NULL);returnTCL_OK;4)在文件CounterTestDlg.cpp中添加下面两个红色的头文件#includestdafx.h#includeCounterTest.h#includeCounterTestDlg.h#includetcl.h#includeTcl_ExCounter.h第七步：添加tcl头文件和库文件，并设置相应的头文件和库文件路径1）如下图所示，采用如下方法添加tcl83包中的t

8、cl.h和tcl83.lib2）在tool-Option-Directory.菜单中，设置tcl83包的头文件路径：3）在tool-Option-Directory.菜单中，设置tcl83包的库文件路径：第八步：在对话框工程中，增加按钮“Test”，如下图所示，并且在按钮的相应函数中，添加如下代码：voidCCounterTestDlg:OnButton1()/TODO:AddyourcontrolnotificationhandlercodehereintrCode;/通过那嵌入集成测试框架的Tcl解释器MyInterp，运行tcl脚本E:/test.tclrCode=Tcl_EvalFil

9、e(MyInterp,E:/test.tcl);if(TCL_OK!=rCode)AfxMessageBox(ThereareerrorsinyourTclFile);扩展指令参考代码：intTclEx_IsCodeLine(ClientDataclientData,Tcl_Interp*interp,intargc,constchar*argv)CStringstr;BOOLbFlag,bRet,bExceptedRet,bExceptedFlag;CCounteroMyCouter;FILE*out;out=fopen(E:tempresultresult.txt,a);/第一步：检查参数

10、个数if(5!=argc)fputs(Parameterserror,out);fflush(out);returnTCL_ERROR;/第二步：取出参数str=argv1;if(TCL_OK!=Tcl_GetInt(interp,argv2,&bFlag)returnTCL_ERROR;if(TCL_OK!=Tcl_GetInt(interp,argv3,&bExceptedRet)returnTCL_ERROR;if(TCL_OK!=Tcl_GetInt(interp,argv4,&bExceptedFlag)returnTCL_ERROR;/第三步：调用被测函数bRet=oMyCouter.IsCo