上傳人：1***

認(rèn)證信息

認(rèn)證類型：個(gè)人認(rèn)證

認(rèn)證主體：裴**（實(shí)名認(rèn)證）

IP屬地：黑龍江

IP屬地：黑龍江 上傳時(shí)間：2023-06-20 格式：DOCX 頁數(shù)：6 大小：16.91KB 積分：3.6 舉報(bào) 版權(quán)申訴

第第頁軟件測(cè)試工具QTP面向?qū)ο蟮目蚣苘浖y(cè)試工具QTP面向?qū)ο蟮目蚣?/p>

發(fā)表于：2023-09-08來源：：點(diǎn)擊數(shù)：標(biāo)簽：工具框架軟件測(cè)試qtpQTP

軟件測(cè)試工具QTP面向?qū)ο蟮目蚣苓@種框架的核心思想是把某個(gè)窗口的測(cè)試對(duì)象和相關(guān)業(yè)務(wù)核心操作都封裝在VBS的類中，稱之為GUI層，或者叫GUI-業(yè)務(wù)橋接層。例如下面的登錄界面類：'登錄界面類，封裝了界面對(duì)象數(shù)據(jù)以及相關(guān)業(yè)務(wù)操作ClassLoginPrivate

軟件測(cè)試工具QTP面向?qū)ο蟮目蚣?/p>

這種框架的核心思想是把某個(gè)窗口的測(cè)試對(duì)象和相關(guān)業(yè)務(wù)核心操作都封裝在VBS的類中，稱之為GUI層，或者叫GUI-業(yè)務(wù)橋接層。例如下面的登錄界面類：

'登錄界面類，封裝了界面對(duì)象數(shù)據(jù)以及相關(guān)業(yè)務(wù)操作

ClassLogin

Privatem_htChildObjects'AsScripting.Dictionary

PublicPropertyGetChildObjects()

SetChildObjects=m_htChildObjects

EndProperty

PublicPropertyLetChildObjects(ByRefdic)

Setm_htChildObjects=dic

EndProperty

'初始化界面對(duì)象并驗(yàn)證對(duì)象是否存在

PublicFunctionInit()

ChildObjects=CreateObject("Scripting.Dictionary")

WithChildObjects

.Add"LoginDialog",Dialog("text:=Login")

.Add"AgentName",ChildObjects.Item("LoginDialog").WinEdit("attachedtext:=AgentName:")

.Add"Password",ChildObjects.Item("LoginDialog").WinEdit("attachedtext:=Password:")

.Add"Submit",ChildObjects.Item("LoginDialog").WinButton("text:=OK")

EndWith

'IsContextLoadedisafunctionthatiteratesthroughtheDictionaryandchecksiftheGUIobjects"exist"

Init=IsContextLoaded(ChildObjects)'檢查界面層對(duì)象是否存在

EndFunction

'與界面對(duì)象綁定的各類業(yè)務(wù)操作

'測(cè)試數(shù)據(jù)從GlobalDictionary中獲取(放在Data層),這里把測(cè)試數(shù)據(jù)做成函數(shù)參數(shù)可能會(huì)更好?!

PublicFunctionSetUsername()

ChildObjects.Item("AgentName").SetGlobalDictionary.Item("AgentName")

EndFunction

PublicFunctionSetPassword()

ChildObjects.Item("Password").SetGlobalDictionary.Item("Password")

EndFunction

PublicFunctionSubmit()

ChildObjects.Item("Submit").Click

EndFunction

EndClass

PublicFunctionCreateLogin()

DimobjLogin

SetobjLogin=NewLogin

SetCreateLogin=objLogin

EndFunction

在業(yè)務(wù)層的類中封裝業(yè)務(wù)操作流程的代碼，例如下面的登錄流程：

'登錄業(yè)務(wù)類，封裝了登錄過程的業(yè)務(wù)操作流程

Classdo_login

PublicDefaultFunctionRun()

DimintStatus

SetobjLogin=CreateLogin()'調(diào)用GUI層的Login類

IfobjLogin.Init()Then'如果所需的界面對(duì)象都存在，則執(zhí)行業(yè)務(wù)操作流程

objLogin.SetUsername()

objLogin.SetPassword()

objLogin.Submit()

intStatus=micPass'Ifloginsuclearcase/"target="_blank">cceeds

Else

intStatus=micFail

EndIf

Run=intStatus

EndFunction

EndClass

PublicFunctionCreate_do_login()

DimbzLogin

SetbzLogin=Newdo_login

SetCreate_do_login=bzLogin

EndFunction

這種寫法的好處，除了可以細(xì)粒度地抽象、分解業(yè)務(wù)的測(cè)試代碼，提高可重用性外，還可以在業(yè)務(wù)層的代碼執(zhí)行前，先讓界面層檢查驗(yàn)證所需的測(cè)試對(duì)象是否都存在(例如上面代碼中的objLogin.Init())，避免了QTP在運(yùn)行過程中碰到對(duì)象不存在的時(shí)候卡住的現(xiàn)象。

在界面層的Init方法中，通過描述性編程把測(cè)試對(duì)象都存入Dictionary中，然后用IsContextLoaded方法遍歷對(duì)象，檢查是否在運(yùn)行時(shí)都存在：

'檢查界面層對(duì)象是否存在并寫入測(cè)試報(bào)告

PublicFunctionIsContextLoaded(ByRefhtContext)

Dimix,items,keys,strDetails,strAdditionalRemarks

IsContextLoaded=true

items=htContext.Items

keys=htContext.Keys

Forix=0TohtContext.Count-1

IsContextLoaded=IsContextLoadedAnditems(ix).Exist(0)

strDetails=strDetailsvbNewLine"Object#"ix+1":'"keys(ix)"'was"

IfIsContextLoadedThen

intStatus=micPass

strDetails=strDetails""

strAdditionalRemarks=""

Else

intStatus=micWarning

strDetails=strDetails"not"

strAdditionalRemarks="Pleasechecktheobjectproperties."