Datapool实际应用

                            实际应用

aG\%^[}t0   51Testing软件测试网c5R/}._6~#_J^9O4wE

wS4q#KO Y#t'tq0   现有软件系统的登陆功能进行测试。测试工程师设计测试用例，在实际工作中发现登陆系统版本基本稳定，而且功能孤立，界面在将来的版本中变化的可能性不大，所以决定测试自动化，减少人工重复劳动，提高测试效率。

    测试工程师开始利用黑盒测试方法等价类法，因果分析法，边界值法等方法设计测试用例，开发功能测试脚本，用datapool（数据池中的数据是设计 测试用例的时候用到的输入值）保存测试数据。 登陆界面需要输入用户名，密码，在数据池中建立两个字段username,password。Datapool中的数据和测试用例中输入数据相一致。

Bb C&{u\`0第一步：创建名字为dp的datapool,假如字段name,password并自动生成数据，然后把测试用例中各种数据输入dp中51Testing软件测试网0X6P'pS F

第二步：录制功能测试脚本，脚本如下：51Testing软件测试网
F^P5p]$RV

Sub Main

    Dim Result As Integer51Testing软件测试网;MV6j1KBNdc|;{

8x(p"T$q]:X a'K0 

)r
rwf)l0    'Initially Recorded: 2004-4-24  10:59:24

;}uh*ujZ v0    'scrīpt Name: Five51Testing软件测试网0Ov2BK-NdJc?nK

,Y~8F:eP
N7jodp0    StartApplication "xxx"51Testing软件测试网z$yh La3XX

#aN9?(N#D/xM
V0    Window SetContext, "Caption=登陆", ""

    InputKeys "sa"51Testing软件测试网7gg-} v+p

m8Q/JF!L'WYS;{e0    EditBox Click, "ObjectIndex=1", "Coords=34,9"

Ry"`n:lg/x1B2G1k.L0    InputKeys "sa"51Testing软件测试网8j"W7mh0t

+`[dvS7U0    PushButton Click, "Text=登陆"

   51Testing软件测试网.A;YY$f1Lh/a7H

    Window SetContext, "Caption=登陆;Class=#32770", ""51Testing软件测试网,^;c$dh)\Zw h

r!j8[_6pv e(u/D0    PushButton Click, "Text=确定" 

0g`'JYJ
hk0End Sub

X#f+CgW/s&~y#w0 第三步：循环读出datapool数据，进行自动化测试，脚本如下51Testing软件测试网O'C9sD5zT
H fp7Jd

 '$Include "sqautil.sbh"51Testing软件测试网#I/g H&Qg^$p

 Sub Main

    Dim Result As Integer

    Dim dp_id as Long

s6k$hDz:l#z cA0    Dim dp_Result as Long

y7x/t0f5y @+~0   Dim strName as String

W0^.E*`N8N0    Dim strPassWord as String51Testing软件测试网zIdS5S/@0x

pO*^Ea+g/n/O0  'Initially Recorded: 2004-4-24  10:30:51

i}/qgLa7|;Rwmm0    'scrīpt Name: Four

RF V"q9\
N&Elk0 

    StartApplication "xxx"

o~&f$v~4\"oq`/[0    Window SetContext, "Caption=登陆", ""

    dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)

:vR"AWH%{:O0   dp_Result = SQADatapoolFetch (dp_id)51Testing软件测试网?:dYoA
D-y:T

   while dp_Result <>  sqaDpEOF

          dp_Result = SQADatapoolValue (dp_id, "name", strName)51Testing软件测试网
YHz#_)eT

           dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)

x'G_f0s/A3t(r0           dp_Result = SQADatapoolFetch (dp_id)

J j"~jC?J0           InputKeys strName

           EditBox Click, "ObjectIndex=1", "Coords=34,9"51Testing软件测试网_{8bSFXL

|(`&D(x}&CL'J0           InputKeys strPassWord51Testing软件测试网 voiiL;r:j1Iq

           PushButton Click, "Text=登陆"51Testing软件测试网/{Ra!`(G*`

           Window SetContext, "Caption=登陆;Class=#32770", ""51Testing软件测试网:j|-?\C9P&hO

           PushButton Click, "Text=确定"

EZ!Hn$P8P/Kj!X0    wend

    dp_Result = SQADatapoolClose (dp_id)  

End Sub