自动化测试（五）：自动化测试框架

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

|mercury|Please enter passwoed

mercury|mercury|null

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

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

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

‘文件调用函数

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