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

第一步：创建名字为dp的datapool,假如字段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,这个留给你自己动手来改进）。

脚本如下：