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;=

  • 相关阅读:
    android 模拟点击事件
    IGZO显示屏
    java 代码混淆
    android 模拟点击3
    android 文件读写
    android 抓包 tcpdump
    pathon 2
    conversion to dalvik format failed with error 1
    zipalign
    android 来电状态
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/3053472.html
Copyright © 2011-2022 走看看