CSDN博客

img piaocl

Rational中DataPool的介绍与实际应用-续(1)

发表于2004/4/26 12:42:00  1012人阅读

第一步:创建名字为dpdatapool,假如字段name,password并自动生成数据,然后把测试用例中各种数据输入dp

第二步:录制功能测试脚本,脚本如下:

 

Sub Main

    Dim Result As Integer

 

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

    'Script Name: Five

    StartApplication "xxx"

    

    Window SetContext, "Caption=登陆", ""

    InputKeys "sa"

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

    InputKeys "sa"

    PushButton Click, "Text=登陆"

   

    Window SetContext, "Caption=登陆;Class=#32770", ""

    PushButton Click, "Text=确定"

    

End Sub

 

第三步:循环读出datapool数据,进行自动化测试,脚本如下

 '$Include "sqautil.sbh"

 

Sub Main

    Dim Result As Integer

    Dim dp_id as Long

    Dim dp_Result as Long

   

    Dim strName as String

    Dim strPassWord as String

  

    'Initially Recorded: 2004-4-24  10:30:51

    'Script Name: Four

 

    StartApplication "xxx"

    Window SetContext, "Caption=登陆", ""

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

   

dp_Result = SQADatapoolFetch (dp_id)

   

     while dp_Result <>  sqaDpEOF

   

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

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

           dp_Result = SQADatapoolFetch (dp_id)

         

           InputKeys strName

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

           InputKeys strPassWord

           PushButton Click, "Text=登陆"

   

           Window SetContext, "Caption=登陆;Class=#32770", ""

           PushButton Click, "Text=确定"

    wend

 

    dp_Result = SQADatapoolClose (dp_id)

   

End Sub

 

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

脚本如下:

 

 

0 0

相关博文

我的热门文章

img
取 消
img