用Excel做Datapool实现Rational Robot 功能测试的一个实例

最新推荐文章于 2024-09-16 16:05:38 发布

kos_upc

最新推荐文章于 2024-09-16 16:05:38 发布

阅读量984

点赞数

文章标签： excel 测试 microsoft internet browser webbrowser

本文链接：https://blog.csdn.net/kos_upc/article/details/15688

版权

Rational Robot是一个比较通用的软件测试工具。她主要通过录制(自动或手工)脚本用于功能测试和性能测试。

在手工修改Robot录制的GUI脚本时，经常用到Datapool这一概念，由于Rational自带的Datapool工具只能支持2000行的数据池纪录，而且编辑不是很方便。现用比较方便的Excel作为数据源，实现自动测试的功能。

前提条件：OS系统中已经安装Office。

[源码]

'$include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    dim excel as Object
    dim book as Object
    dim worksheet as Object
    dim s_name as String
    dim s_pass as String
    dim count as Integer

    'Initially Recorded: 2004-4-2 :16:55
    'Script Name: AUT_1_Login

    Window SetContext, "Caption=Program Manager", ""
    StartBrowser "C:/Program Files/Internet Explorer/IEXPLORE.EXE", "WindowTag=WEBBrowser"


    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Initiliaze excel
    on error resume next
    Set excel = GetObject(,"excel.application")
    if(excel Is Nothing) then
        Set excel = CreateObject("excel.application")
        if(excel Is Nothing) then
            MsgBox "Couldn't find Excel!"
            Exit Sub
        End if
    End if

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Set book = excel.Workbooks.Open("Your Book1.xls")
    Set worksheet = book.Worksheets("Your Excel sheet's name")

    For count=1 To 2
    s_name = worksheet.Cells(1,count).Value
    s_pass = worksheet.Cells(2,count).Value
    'print s_name,s_pass

    Window SetContext, "Caption=Web应用系统 - Microsoft Internet Explorer", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=mainframe",""
    Browser NewPage,"HTMLTitle=Title",""
    EditBox Click, "Type=EditBox;Name=userAccount", "Coords=26,10"
    InputKeys s_name &"{TAB}"&s_pass
    PushButton Click, "Type=PushButton;HTMLText=登录"

    Window SetTestContext, "Caption=Web应用系统 - Microsoft Internet Explorer", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=mainframe",""

    Window SetTestContext, "Caption=Microsoft Internet Explorer", ""
    Result = LabelVP (CompareProperties, "Text=输入错误，请重新输入！", "VP=Object Properties;ExpectedResult=FAIL")
    Window ResetTestContext, "", ""

    Next count