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

  • 相关阅读:
    Mysql表连接查询
    mysql查询语句 和 多表关联查询 以及 子查询
    MySql 模糊查询、范围查询
    Mysql外键约束设置使用方法
    python基础:re模块匹配时贪婪和非贪婪模式
    解决Ubuntu 16.04下提示boot分区空间不足的办法
    String,StringBuffer,StringBuilder的区别
    多线程模拟生产者和消费者模型
    线程同步处理
    多线程的三种实现
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/3053472.html
Copyright © 2011-2022 走看看