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

  • 相关阅读:
    java入门了解14
    java入门了解13
    java入门了解12
    java入门了解11
    Hive-安装
    Hive-基本概念
    Java笔记20
    Java-笔记19
    Java-笔记18-复习
    Java-笔记18
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/3053472.html
Copyright © 2011-2022 走看看