搭建TCL測試環(huán)境

　　搭建TCL測試環(huán)境  軟件測試

　　利用Visual C++建立一個(gè)控制臺程序的工程，工程的名字為T(mén)clTest。

　　H文件：

　　#include "tcl.h"

　　#define RET_ERR false

　　#define RET_OK true

　　#define MAX_WORD_LEN 32

　　int GetWordFromStr(char *pStr, char *pDestStr, int iPos);

　　int Tcl_EXGetWord(ClientData clientData,

　　Tcl_Interp *interp,

　　int argc, char *argv[]);

　　int Tcl_AppInit(Tcl_Interp *interp);

　　CPP文件：

　　#include "stdafx.h"

　　#include "utsample.h"

　　#include "memory.h"

　　#include "string.h"

　　int main(int argc, char* argv[])

　　{

　　Tcl_Main(argc, argv, Tcl_AppInit);

　　return 0;

　　}

　　int Tcl_EXGetWord(ClientData clientData,

　　Tcl_Interp *interp,

　　int argc, char *argv[])

　　{

　　int iPos;

　　bool rCode;

　　char pDestStr[32];

　　memset(pDestStr, 0, 32);

文章來(lái)源于領(lǐng)測軟件測試網(wǎng) http://kjueaiud.com/