QTP测试的数据驱动-阿里云开发者社区

开发者社区> 云计算> 正文

QTP测试的数据驱动

简介: 从文本文件读取数据作为测试的数据 Dim oShell Set oShell=CreateObject("WSCript.shell") oShell.Run "calc",1 Wait 2 'Window("计算器").

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

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

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章