Datapool实际应用续

51Testing软件测试网b:{9LBR$oR GY0k
51Testing软件测试网q4nu^&i#d*k

Datapool实际应用（续）51Testing软件测试网:bw R CK}mQ\:I3O
d

第四步： 加入执行成功和失败的result信息并写入Result report中，和必要的除错处理。对脚本进行优化。加入BASELINE设置（对于测试基线有两种思路，一种是文件处理，采用文件类型为文本文件或者EXCEL或者WORD，读取DATAPOOL测试数据和文件内容对比，检测测试数据是否在文件中存在，当然这里的测试基线考虑的不够周全，你可以定制规则，逐步完善，一种是直接从数据库中读取数据进行对比,用数据库作为baseline来避免以后增加测试用例后改动baseline文件，当然这么做跟测试理论不合，应该把预期输出保存到特定文件中作为baseline,这个留给你自己动手来改进）。

脚本如下：51Testing软件测试网yS0K%cd"`
51Testing软件测试网|{ q%nJ cI p

'$Include "sqautil.sbh"

Sub Main51Testing软件测试网'f$am^Cy
K#e
    Dim Result As Integer
/yhU9y`A5E0    Dim dp_id as Long
'H:d'Gz)RC0    Dim dp_Result as Long 
"O4[rJS i7u0    Dim strMessage as String51Testing软件测试网)M)b;xesE
    Dim vSText as string
Ay aEp l _#f9p u0    Dim cnn As object51Testing软件测试网?*u`\8q]
    Dim Rst As object
F5? y*Kd,jKK0    Dim strLink As String
5ru] TFlRU&bE9][0    Dim strSql As String
2y7z`EF I0    Dim strName as String
p|8p.G0\j0    Dim strPassWord as String
V&C*A:c+v+V }$S)P0    'Initially Recorded: 2004-4-24  10:30:51

    'scrīpt Name: Four
#x#kH_qg`'C:p+\0    strLink = "连接字符串“
'_&G wj9Oe]0    Set cnn = CreateObject("ADODB.Connection")

    Set Rst = CreateObject("ADODB.Recordset")51Testing软件测试网Q%zJ0~s F
    cnn.Open strLink

    Rst.CursorLocation = 051Testing软件测试网c!jdam4U

    Rst.LockType = 151Testing软件测试网?#qr$U(z2S~,_

    Rst.CursorType = 2

     StartApplication "xxx" 

     Window SetContext, "Caption=登陆", ""51Testing软件测试网"U eP` x*pRgh]

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

     dp_Result = SQADatapoolFetch (dp_id)

     if (dp_Result = 0) then

          while dp_Result <>  sqaDpEOF51Testing软件测试网tPF/[4rm6[L

                dp_Result = SQADatapoolValue (dp_id, "name", strName)

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

                dp_Result = SQADatapoolFetch (dp_id)

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

                InputKeys strPassWord

                PushButton Click, "Text=登陆"51Testing软件测试网qkSdH1M

                strMessage = "用户名：" + strName + ";密码：" + strPassWord 51Testing软件测试网,Ns+A5v9JWb*s!Ce4\Y

                strSql = "select * from login where name = "" " + strName + " "" and password = """ + strPassWord + """"

                Rst.open strSql, cnn51Testing软件测试网5dt9qkg

‘这个函数是作为插入验证点，验证点为窗体提示信息，没有用window image来作为验证点，是因为无法把该脚本进行模块化，存入shl文件中，将来多平台使用。51Testing软件测试网n{SB L+nM

                SQAGetProperty  "Label", "Text", vSText51Testing软件测试网E hX$o5o|ht

               ‘测试用例分为成功，失败的测试用例，失败的测试用例中即使数据

’错误，但有预期输出就是成功的用例，所以写入result report中的信51Testing软件测试网mZ2lA L~.Kb

‘息分为三种，成功，失败，预期失败，对于程序中有不是预期的窗

‘体，用程序自动关闭掉，继续执行，这里安全的做法做标志然后关

‘闭整个软件，重新启动软件，测试脚本从失败处继续执行51Testing软件测试网 c'e1]CZZ&vq

                     if Rst.RecordCount= 1 then

                        if (vSText="登陆成功") then

                           PushButton Click, "Text=确定"51Testing软件测试网Z"~!X0IGLE

                           SQALogMessage sqaPass, "测试数据为" + strMessage + "的测试用例执行成功", "项目名称"51Testing软件测试网Q.V l4h Ah

                        else51Testing软件测试网g-e{KgH

                           '出现异常窗体，该用例测试失败

                           SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败", "项目名称"

                           SQAGetProperty "Window", "Text", vSText  

                           SQALogMessage sqaFail, "出现错误窗体:"+ vSText, "项目名称"51Testing软件测试网e)q,~]9l&e-W^a

                           Window CloseWin, "Caption=" + vSText, ""

                     else

                        if (vSText="登陆失败") then

                           '数据错误，用例执行失败，软件功能正常

                          PushButton Click, "Text=确定"   

                         SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败但软件功能正常", "项目名称"51Testing软件测试网L#J)I{R M
c5T^5BP

                        else51Testing软件测试网tQ)p$_
@k

                           '出现异常窗体，该用例测试失败

                           SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败", "项目名称"

                           SQAGetProperty "Window", "Text", vSText  

                           SQALogMessage sqaFail, "出现错误窗体:"+ vSText, "项目名称"

                           Window CloseWin, "Caption=" + vSText, "" 

                        end if  

                     end if51Testing软件测试网hg1C;Z+QZ5s+xk#p8V

          dp_Result = SQADatapoolClose (dp_id)

    else51Testing软件测试网L d9t~7x6K

         SQALogMessage sqaFail, "数据池打开失败", "项目名称"

    end if51Testing软件测试网E4svO2j#kh

      SQALogMessage sqaFail, "测试脚本发生异常，测试脚本执行失败", "项目名称" 

End Sub51Testing软件测试网+OT*ox'L&g"x

 总结：51Testing软件测试网T4]%O+D8j

~}n F@N8k(f'x0     上边脚本是对登陆功能测试自动化初步优化后的代码，后边还要做的是脚本模块化，函数话，功能分切。脚本过大不容易维护，把其中连接数据库，处理datapool功能写成函数提供其他工程使用。其实也可以把测试数据存入文本文件,word,excel等文件中，然后读出处理模拟datapool功能，但开发脚本工程量大。datapool提供自动生成数据功能和能够和工程结合是它的优点，但很困难多个工程共享datapool。51Testing软件测试网 Rf^GtB ~ m