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

实际应用

51Testing软件测试网BJ;[,cu!K
为了说明问题。我用分别用vb,delphi, DotNET实现一个简单添加用户的功能，后台用ACCESS数据库，例用ado通过odbc连接。

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

2．        设置session Record Options51Testing软件测试网/ph)D8OC2ee

录制方法选择api record录制，协议用odbc。（如果我后台换sqlserver或则oracle，其他实现方式不变，应该选择什么协议，因该添加什么协议）51Testing软件测试网+n-R0R+Z2lL0G!RDE

3．         Vb,delphi编码方式的功能脚本录制成功（创建同名datapool）。DotNet脚本录制成功，却无法产生同名的datapool（怎么办）。不成功脚本如下：51Testing软件测试网a$_1K*Y k3Z/e

       /*51Testing软件测试网@'P,R9ye

      ->-> Session File Information <-<-51Testing软件测试网"A5t_ ^!c(U

       Created: Sun Apr 25 23:24:36 200451Testing软件测试网8O7{E.t5vQ*Cw!}

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

          Type: Rational Robot - API51Testing软件测试网2w mUtT!Z3A

                (with ODBC)*/
A6Ym/R&J[8Z0#include <VU.h>51Testing软件测试网"m9sT
ly

{51Testing软件测试网2SX%`"r4B ZEa

push Timeout_scale = 200; /* Set timeouts to 200% of maximum response time */51Testing软件测试网p8C/L PBH(L7sM

push Think_def = "LR";

Min_tmout = 120000;       /* Set minimum Timeout_val to 2 minutes          */51Testing软件测试网p)N
B9VL,P6?%h^+[K

push Timeout_val = Min_tmout;51Testing软件测试网#a!W8i*@i;qT9G4^ [+J

/* No Datapool Items Remain */

/* After All Data Analyses. */51Testing软件测试网 a*X im8n&q1O

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

                       "VBNETDemo", "odbc",51Testing软件测试网uLF-T BU@`

                       "DRIVER_INFO='DSN=?;;UID=DEFAULT;PWD=DEFAULT;'");51Testing软件测试网Gk]V({!f2m

/*{ INFO SERVER "UNKNOWN"="0.0.0.0"; }  */51Testing软件测试网 yG&H-H(Iz[ ~

/* Unable to determine Server Name/Address  */

set Server_connection = VBNETDemo;51Testing软件测试网#L"XdII}

push Think_avg = 0;

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

set Think_avg = 313;51Testing软件测试网0y:}4` G'z
_ q @7{].h

push CS_blocksize = 1;

sqlfetch_cursor ["pre002"] stmt_2_1_id, ALL_ROWS;51Testing软件测试网X O&_&GN7Ey:H

set Think_avg = 0;51Testing软件测试网I8s6bhq3Pi!p

sqlclose_cursor ["pre003"]  stmt_2_1_id ;

set Think_avg = 4078;51Testing软件测试网,m
R w#qLVN6O*E:O

stmt_2_2_id = sqlopen_cursor ["pre004"] "", "INSERT INTO `login` (`name`,`password`) VALUES (?,?)",51Testing软件测试网3K'G0jF9o'q"fZ#|

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

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

set Think_avg = 0;51Testing软件测试网Ak]-M%a
s0W;_`
51Testing软件测试网 Ns&o5OX i"Sjk
sqlfree_cursor( stmt_2_2_id );51Testing软件测试网-`DW;@C
51Testing软件测试网:v'LEm3E-O|
set Think_avg = 2781;
%R:iO ?q%`)NN[0
|M7v9\m ]W8j/F M0sqlfree_cursor( stmt_2_1_id );51Testing软件测试网xm3D7zi2K,O
jg

kk3g9cIj0sqldisconnect(VBNETDemo);51Testing软件测试网Z/M+V2|
r%i
51Testing软件测试网1M)]ea!SFO.Y#G
pop [Think_def, Think_avg, Timeout_val, Timeout_scale];51Testing软件测试网 b)b+Cfot#e;WN

pop CS_blocksize;  }51Testing软件测试网jI|O oY`

       点EDIT->Datapool information报错没有datapool config，那就动手修改脚本51Testing软件测试网m+G
h9PVoL

4．修改脚本后如下51Testing软件测试网)?9o_$F:hw1VVl:Z

      /*->-> Session File Information <-<-

       Created: Sun Apr 25 23:24:36 200451Testing软件测试网'a.}eXlkf8tk

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

          Type: Rational Robot - API51Testing软件测试网5s y*u1z%QO3y

                (with ODBC)*/
B l}$U]:i051Testing软件测试网E'_BY\/h7Nr
#include <VU.h>

{51Testing软件测试网Ls+YgQuK1r;s
push Timeout_scale = 200; /* Set timeouts to 200% of maximum response time */

push Think_def = "LR";51Testing软件测试网-Wk#];aU
e%@ w,t

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

push Timeout_val = Min_tmout;51Testing软件测试网
S_U d+O
51Testing软件测试网pUma0P u
/* No Datapool Items Remain */ 红色字体是无法生成datapool的解释51Testing软件测试网*L(Vtw'c'p[#so1^

/* After All Data Analyses. */51Testing软件测试网)S5a_"}N_

U3XK\TP7U_0DP1 = datapool_open("lead");   //添加的脚本51Testing软件测试网"m9JX!U8Pm'`V9AL

datapool_fetch(DP1);          //添加的脚本
,~,D#g*zp0
+D%[i)G;scX@0VBNETDemo = sqlconnect("VBNETDemo", "", LOOKUP_PWD,51Testing软件测试网[9pw.`rUk

                       "VBNETDemo", "odbc",

                       "DRIVER_INFO='DSN=?;;UID=DEFAULT;PWD=DEFAULT;'");51Testing软件测试网'a9xh5Ow$u F MP&F
51Testing软件测试网 T9\HR(|Uy
/*{ INFO SERVER "UNKNOWN"="0.0.0.0"; }  */51Testing软件测试网"{T,}Q_k,R

/* Unable to determine Server Name/Address  */
o"AkL qi3s4e051Testing软件测试网7L(W
m }U[:J
set Server_connection = VBNETDemo;
N*]6e1R_a+m0
5P$rN!H,x2D*[0push Think_avg = 0;51Testing软件测试网Ppok7`z

stmt_2_1_id = sqlopen_cursor ["pre001"] "", "select * from login";51Testing软件测试网QT6y&F_-C

push CS_blocksize = 1;51Testing软件测试网'~*xyL7v%h [J

sqlfetch_cursor ["pre002"] stmt_2_1_id, ALL_ROWS;51Testing软件测试网)kA8Dh4y

set Think_avg = 0;

sqlclose_cursor ["pre003"]  stmt_2_1_id ;51Testing软件测试网Vh1\A(Ea{A5I]

set Think_avg = 4078;51Testing软件测试网)@&t"L'z H6w8ia-Nu

stmt_2_2_id = sqlopen_cursor ["pre004"] "", "INSERT INTO `login` (`name`,`password`) VALUES (?,?)",51Testing软件测试网1am[O;Ax]!uy

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

   "'f\002'<varchar(50):I>";51Testing软件测试网:\7U.W s&iB-F4T

 set Think_avg = 0;

sqlfree_cursor( stmt_2_2_id );

set Think_avg = 2781;51Testing软件测试网8e,d}+G%\ HL

sqlfree_cursor( stmt_2_1_id );

sqldisconnect(VBNETDemo);
Q&B;mWkB-r']0K0
7~V4?0H'Y9IQ0pop [Think_def, Think_avg, Timeout_val, Timeout_scale];

pop CS_blocksize;

}51Testing软件测试网9Kue0Aj

//下边是添加的脚本

DATAPOOL_CONFIG "lead"  OVERRIDE DP_NOWRAP DP_SEQUENTIAL DP_SHARED

{

        EXCLUDE, "rpcarg", "string", "f";51Testing软件测试网:Dj3QCfF3F:n

        EXCLUDE, "rpcarg", "string", "f";

}51Testing软件测试网~f V:y `3G

 51Testing软件测试网^Au2[ Gmho.mh

脚本修改完成后，错误解决，可以打开datapool information.

4．建立datapool。

Exclude含义是建立datapool但不建立datapool中字段，运行脚本的时候从实际录制的脚本中读数据。

Include在datapool建立一个同名的字段，运行脚本时从datapool中读数据。Override在datapool中建立同名字段，运行脚本时从实际脚本中读数据。51Testing软件测试网7[#Pc$eFD,X

修改datapool的usage属性为include，建立datapool字段，生成数据，修改数据（添加测试用例中的数据）

5．(确定脚本运行正常) robot中运行脚本，启动testmanager，点run suit。或者直接在testmanager中启动suit,修改changage,选择脚本

6．多用户访问。运行20个用户同时访问服务器（修改suit中number of users），运行,修改数字为20，同时运行

7．我们需要多用户同时访问，但是数据不同。

修改usage属性exclude为include。51Testing软件测试网Zkp']l

修改DATAPOOL Information中playback behavīor中access为radom

use scrīpt data为obey usage。运行testmanage中suit。51Testing软件测试网D.i(J U"G2Q:j