zoukankan      html  css  js  c++  java
  • QTP测试的数据驱动

    从文本文件读取数据作为测试的数据

    Dim oShell
    Set oShell=CreateObject("WSCript.shell")
    oShell.Run "calc",1
    Wait 2
    
    'Window("计算器").WinButton("1").Click
    'Window("计算器").WinButton("+").Click
    'Window("计算器").WinButton("1").Click
    'Window("计算器").WinButton("=").Click
    'Window("计算器").WinEdit("Edit").Check CheckPoint("Edit_2")
    'Window("计算器").Close
    Set F=OpenFile("Calc.txt",1)
    Do While F.AtEndOfLine <> True
        btn_str=F.ReadLine
        btn_array=Split(btn_str,";")
        Expected=btn_array(0)
        ExecuteTest(btn_array(1))
        ExecuteTest(btn_array(1))
        ExecuteTest(btn_array(1))
        ExecuteTest(btn_array(1))
        Verify(Expected)
    Loop
    CloseFile(F)
    
    Function OpenFile(FilePath,mode)
       Dim oFSO
        Set oFSO=CreateObject("Scripting.FileSystemObject")
       set OpenFile=oFSO.OpenTextFile(FilePath,mode,True)
    End Function
    
    Function CloseFile(byref FileRef)
       FileRef.close
    End Function
    
    Function ExecuteTest(Operator)
        Select Case Operator
            Case "0"
                Window("计算器").WinButton("0").Click
            Case "1"
                Window("计算器").WinButton("1").Click
            Case "2"
                Window("计算器").WinButton("2").Click
            Case "3"
                Window("计算器").WinButton("3").Click
             Case "4"
                Window("计算器").WinButton("4").Click
            Case "5"
                Window("计算器").WinButton("5").Click
            Case "6"
                Window("计算器").WinButton("6").Click
            Case "7"
                Window("计算器").WinButton("7").Click
            Case "8"
                Window("计算器").WinButton("8").Click
            Case "9"
                Window("计算器").WinButton("9").Click
    
              Case "+"
                Window("计算器").WinButton("+").Click
            Case "-"
                Window("计算器").WinButton("-").Click
            Case "*"
                Window("计算器").WinButton("*").Click
            Case "/"
                Window("计算器").WinButton("/").Click
        End Select
    Window("计算器").WinButton("=").Click
    End Function
    
    Function Verify(expected)
       actual=Window("计算器").WinEdit("Edit").GetROProperty("text")
       If Cint(actual)=Cint(expected) Then
           Reporter.ReportEvent micPass,"",""
        else
            Reporter.ReportEvent mcifail,"",""
       End If
    End Function

    文本文件为

    2;1;+;1;=
    0;1;-;1;=
    1;1;*;1;=
    1;1;/;1;=

  • 相关阅读:
    Linux效劳器装机安全快速进阶指南(6)
    VLC 0.8.6b
    Mesk:简洁而朴实的音乐播放器
    OpenOffice.org最先支持微软docx等技俩
    Rawstudio-轻松转换 RAW 图片
    Transmission 0.70
    Openoffice3.0: 微软Office的解散者?
    AcetoneISO:Linux 下的“Daemon Tools”
    OpenOffice3将支撑PDF编纂及ac琐屑
    Linux的主动实行措施cron和crontab(1)
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/3053472.html
Copyright © 2011-2022 走看看