Datapool实际应用

                            实际应用

   51Testing软件测试网|'J:f6wY+^9iN.S
51Testing软件测试网2E ^W6mSqd5r

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

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

9sY UO5h0第一步：创建名字为dp的datapool,假如字段name,password并自动生成数据，然后把测试用例中各种数据输入dp中

W&Q)p kDA#u5c-B9j0第二步：录制功能测试脚本，脚本如下：51Testing软件测试网%{5k(e7Z;@#P

/}s,i+T6u0cG0Sub Main

    Dim Result As Integer

    'Initially Recorded: 2004-4-24  10:59:24

    'scrīpt Name: Five

^nw~$Ko!bC1axm!p0    StartApplication "xxx"

.?!y"l&Z(l1w!{0    

E@
o6iI.Md3|0    Window SetContext, "Caption=登陆", ""

,N,N0xs6X!Z0    InputKeys "sa"

8D&}9`
y@R3L0Dh-?0    EditBox Click, "ObjectIndex=1", "Coords=34,9"51Testing软件测试网7E-H;[#H-sa$q_U%lH

2k.A$b7qo)s%_0    InputKeys "sa"

F%j ]5J)z3[m,r0    PushButton Click, "Text=登陆"51Testing软件测试网$G9\8G"A(} F-d/k d4ol

   51Testing软件测试网.@QI#]m7}+xS+A

k+R2nw5g0f'p0    Window SetContext, "Caption=登陆;Class=#32770", ""51Testing软件测试网8K6o)T mi3Ve

&H] z;v
q4`"?0    PushButton Click, "Text=确定" 51Testing软件测试网)NxME%wk j

End Sub51Testing软件测试网 dC c3kW2e}2\Ip+T

;?I q^KL| Ui;m0 第三步：循环读出datapool数据，进行自动化测试，脚本如下51Testing软件测试网Uc8O4?4t/C

$H'g9G4U[L{dC0 '$Include "sqautil.sbh"51Testing软件测试网s$OzxM"S!W

 Sub Main

    Dim Result As Integer51Testing软件测试网 U8MT2j
o^su
G

xs:tJ:{Ju5qC0    Dim dp_id as Long51Testing软件测试网 O"xt$nO)}/_X iZ

    Dim dp_Result as Long

:tws e/t2gU0D0   Dim strName as String51Testing软件测试网J[9VP3~2}$ff;Z7UNN

4iG5CZ6adG? [?0    Dim strPassWord as String51Testing软件测试网C!{{;m0gKg

T+cy#Q.X9{0  'Initially Recorded: 2004-4-24  10:30:5151Testing软件测试网YuQ;v4X"UX

.OE._ bHL0    'scrīpt Name: Four51Testing软件测试网|X(H3g-A~
W}

 51Testing软件测试网t7Gmn%ii1G\

    StartApplication "xxx"51Testing软件测试网rUA.PF$_

1L~Og1sf)G!{0    Window SetContext, "Caption=登陆", ""

#k-]0x|&s#zY*M|0    dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)

-Ah bw6]P|*A0   dp_Result = SQADatapoolFetch (dp_id)

:ZUf@z0   while dp_Result <>  sqaDpEOF

          dp_Result = SQADatapoolValue (dp_id, "name", strName)51Testing软件测试网:CK)CuH9m

:b+[Xy2z]z4Q?0           dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)51Testing软件测试网sf3r(Ce^|t

\9RG'UQf0           dp_Result = SQADatapoolFetch (dp_id)51Testing软件测试网FM*Po
E.Hkd0s

           InputKeys strName

           EditBox Click, "ObjectIndex=1", "Coords=34,9"

           InputKeys strPassWord

           PushButton Click, "Text=登陆"51Testing软件测试网QO/l;B(n3[

1tb o!]+k,BT0           Window SetContext, "Caption=登陆;Class=#32770", ""

           PushButton Click, "Text=确定"51Testing软件测试网e9nUxk.i l}f

    wend

W"t6?g!S mv%@}j0    dp_Result = SQADatapoolClose (dp_id)  

E s#{4yQY S$P0End Sub51Testing软件测试网 V'} Y4Z5rWU3f