码迷,mamicode.com
首页 > 其他好文 > 详细

自动化测试(五):自动化测试框架

时间:2014-12-09 12:00:17      阅读:275      评论:0      收藏:0      [点我收藏+]

标签:style   io   ar   os   sp   for   strong   on   文件   

框架(可复用的函数、方法)类型:

         ① 数据驱动(用测试数据去驱动脚本的运行,测试脚本和数据的分离???)

         ② 关键字驱动(object.action(param),抽象程度更高,业务逻辑、脚本、数据的分离)

结构:Automation

         ① AUT:配置文件,xml文件

         ② Config(Object Repository):对象,tsr文件(flighr.tsr)

         ③ TestData:测试数据,即测试用例,txt文件(flight_testcase.txt)

         ④ Script:测试脚本,读取Test Data,传给Execute Testcase,传给业务处理,得到结果,传给Report,vbs文件(testdriven_flight.vbs,flight文件夹)

         ⑤ Report

         ⑥ Log

         ⑦ Exception

         ⑧ Controller文件调用(runQTP.vbs,runtime.bat)

 

注:业务处理函数在QTP里面写,再复制

 

flight_testcase.txt

|mercury|Please enter agent name

mer|mercury|Agent name must be at least 4 characters long

|mercury|Please enter passwoed

mercury|mercury|null

 

testdriven_flight.vbs

Const Forreading = 1

Const ForWriting = 2

Const ForAppending= 8

 

’文件调用

Controller "C:\Automation_Flight\Config\login_flight.tsr","D:\Software\QTP10\samples\flight\app\flight4a.exe","C:\Automation_Flight\TestData\flight_testcase.txt"

’文件调用函数

Function Controller(BvVal tsrPath, ByVal appPath, ByVal datapath)

         RepositorysConnection.Add tsrPath

         Systemutil.Run appPath

         ExecuteTestCase datapath

         Window(“Flight Reservation”).close

End Function

 

’执行用例、写入测试报告函数

Function ExecuteTestCase(ByVal filepath)

         Dim fso, fil, txt, arr, test_result, result_record

         Set fso = CreateObject("Scripting.FileSystemObject")

         Set fil = fso.openTextFile(filepath, ForReading)

        

         Do while Not fil.AtEndOfStream

                  txt = Trim(fil.ReadLine)

                  arr = split(txt, "|")

                  test_result = Login(arr(0), arr(1), arr(2))

                  result_record = result_record & "username: " & arr(0) & ", password" & arr(1) & ", testresult ---->" & test_result & vbCrLf

         Loop

        

         WriteTestReport "C:\Automation\Report\testreport.txt", result_record

        

         fil.close

         set fil = nothing

         set fso = nothing

End Function

 

’报告函数

Function WriteTestReport(ByVal filepath, ByVal str)

         Dim fso, fil

         Set fso = CreateObject("Scripting.FileSystemObject")

         Set fil = fso.openTextFile(filepath, ForWriting, True)

         fil.Write str

         fil.close

         set fil = nothing

         set fso = nothing

end Function

 

’业务逻辑流程,业务处理函数在QTP里面写,再复制

Function Login(ByVal un, ByVal pw, ByVal errmsg)

         dialog("Login").WinEdit("Agent Name: ").Set un

         dialog("Login").WinEdit("Password:").Set pw

         dialog("Login").Winbutton("OK").Click

        

         If dialog("Login").Dialog("Flight Reservations").Exist Then

                  actuan_result = dialog("Login").Dialog("Flight Reservations").Static("errmsg").GetROProperty("text")

                  If action_result = errmsg Then

                           Login = "pass"

                  else

                           Login = "Fail"

                  End If

                  dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

         else

                  If window("Flight Reservations").exist and errmsg = "null" Then

                           Login = "Fail"

                  End If

         End If

End Function

 

在QTP中输入以下内容,保存在script下面的flight文件夹下

executeFile "C:\Automation\Script\testdriven_flight.vbs"

 

QTP自动化,AOM

runQTP.vbs

Dim qtpapp

 

Set qtpapp = CreateObject("QuickTest.Application")

qtpapp.Launch

qtpapp.visiable = True

qtpapp.open "C:\Automation\Script\flight"

qtpapp.Test.Run, True

qtpapp.Quit

 

set qtpapp = nothing

runtime.bat 批处理文件

at 11:54 /interactive cscript C:\Automation\Controller\runQTP

 

Exercise1windows计算器的简单自动化测试框架练习

结构:Automation_calc

         ① Config:windows计算器的对象文件tsr

         ② Controller:runQTP.vbs

         ③ Report:生成报告

         ④ Script:testdriven_clac.vbs  calc文件夹

         ⑤ TestData:testcase.xls

 

runQTP.vbs

Dim qtpapp

 

Set qtpapp = CreateObject("QuickTest.Application")

qtpapp.Launch

qtpapp.visible = True

qtpapp.open "C:\Automation_calc\Script\calc"

qtpapp.Test.Run, True

qtpapp.Quit

 

set qtpapp = nothing

 

testdriven_clac.vbs

Controller "C:\Automation_calc\Config\calc.tsr","C:\WINDOWS\system32\calc.exe","C:\Automation_calc\TestData\testcase.xls"

 

‘文件调用函数

Function Controller(ByVal tsrpath,ByVal apppath,ByVal datapath)

         RepositoriesCollection.Add tsrpath

         SystemUtil.Run apppath

         ExecuteTestCase datapath

         Window("计算器").Close

End Function

 

‘执行用例函数

Function ExecuteTestCase(ByVal filepath)

         dim xlapp, xlworkbook, xlsheet

         dim irowcount, iloop, num1,op,num2,expect_result,test_result, result_record

         set xlapp = createobject("excel.application")

         ‘xlapp.visible = true

         set xlworkbook = xlapp.workbooks.open(filepath)

         set xlsheet = xlworkbook.sheets("calc")

         irowcount = xlsheet.usedrange.rows.count

         for iloop = 2 to irowcount

                   num1 = xlsheet.cells(iloop, 1)

                   op = xlsheet.cells(iloop, 2)

                   num2 = xlsheet.cells(iloop, 3)

                   expect_result = xlsheet.cells(iloop, 4)

                   test_result = Calculation(num1,op,num2,expect_result)

                   result_record = result_record & num1 & op & num2 & "=" & expect_result & ",testresult---->" & test_result & vbcrlf

         next

        

         WriteTestReport "C:\Automation_calc\Report\testreport.txt", result_record

        

‘        xlworkbook.save

         xlworkbook.close

         xlapp.quit

         set xlsheet = nothing

         set xlworkbook = nothing

         set xlapp = nothing

End function

 

‘业务逻辑函数

Function Calculation(ByVal num1, ByVal op, ByVal num2, expect_result)

   Dim actual , expect

         window("计算器").WinEdit("Edit").Type(num1)

         window("计算器").WinButton(op).Click

         window("计算器").WinEdit("Edit").Type(num2)

         window("计算器").WinButton("=").Click

         actual_result = window("计算器").WinEdit("Edit").GetROProperty("text")

         actual = trim(actual_result)

         arr = split(actual,  ".")

         If arr(0) = trim(expect_result) Then

                   Calculation = "Pass"

         else

                   Calculation = "Fail"

         End If

End Function

 

‘报告函数

Function WriteTestReport(ByVal filepath, ByVal str)

         Dim fso, fil

         Set fso = CreateObject("Scripting.FileSystemObject")

         Set fil = fso.openTextFile(filepath, 2, True)

         fil.Write str

         fil.close

         set fil = nothing

         set fso = nothing

end Function

QTP输入以下语句,保存到C:\ Automation_calc\Script\calc文件夹下

executeFile "C:\Automation_calc\Script\ testdriven_clac.vbs"

 

testcase.xls

num1

op

num2

expect_result

20

*

3

60

35

-

5

30

40

+

21

61

55

/

11

5

自动化测试(五):自动化测试框架

标签:style   io   ar   os   sp   for   strong   on   文件   

原文地址:http://www.cnblogs.com/wont/p/4152643.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!