性能测试脚本自动建立测试datapool应用

发布: 2010-5-07 15:46 | 作者: 网络转载 | 来源: 领测软件测试网 | 查看: 34次 | 进入软件测试论坛讨论

为了说明问题。我用分别用vb,delphi, DotNETMILY: 宋体">实现一个简单添加用户的功能，后台用ACCESS数据库，例用ado通过odbc连接。

1．分析程序实现的结构，是简单的c/s结构，利用odbc连接。并且客户端，服务器端都配置在一台计算机。(请注意这个是条件，我们第二步选择的基础)

2．设置session Record Options

录制方法选择api record录制，协议用odbc。（如果我后台换sqlserver或则oracle，其他实现方式不变，应该选择什么协议，因该添加什么协议）

3． Vb,delphi编码方式的功能脚本录制成功（创建同名datapool）。DotNet脚本录制成功，却无法产生同名的datapool（怎么办）。不成功脚本如下：

/*

->-> Session File Information <-<-

Created: Sun Apr 25 23:24:36 2004

Name: G:\Program\robot\lead\TestDatastore\DefaultTestscrīptDatastore\TMS_Sessions\demo.wch

Type: Rational Robot - API

(with ODBC)*/
myE._v%r2O0#include <VU.h>

{

push Timeout_scale = 200; /* Set timeouts to 200% of maximum response time */

push Think_def = "LR";

Min_tmout = 120000; /* Set minimum Timeout_val to 2 minutes */

push Timeout_val = Min_tmout;

/* No Datapool Items Remain */

/* After All Data Analyses. */

VBNETDemo = sqlconnect("VBNETDemo", "", LOOKUP_PWD,

"VBNETDemo", "odbc",

"DRIVER_INFO='DSN=?;;UID=DEFAULT;PWD=DEFAULT;'");

/*{ INFO SERVER "UNKNOWN"="0.0.0.0"; } */

/* Unable to determine Server Name/Address */

set Server_connection = VBNETDemo;

push Think_avg = 0;

stmt_2_1_id = sqlopen_cursor ["pre001"] "", "select * from login";

set Think_avg = 313;

push CS_blocksize = 1;

sqlfetch_cursor ["pre002"] stmt_2_1_id, ALL_ROWS;

set Think_avg = 0;
&^ aW^R ^R+S0

sqlclose_cursor ["pre003"] stmt_2_1_id ;

set Think_avg = 4078;

stmt_2_2_id = sqlopen_cursor ["pre004"] "", "INSERT INTO `login` (`name`,`password`) VALUES (?,?)",

"'f\002'<varchar(50):I>",

"'f\002'<varchar(50):I>";

set Think_avg = 0;

sqlfree_cursor( stmt_2_2_id );

set Think_avg = 2781;