軟件測(cè)試工具中QTP操作xml文件的方法及擴(kuò)展QTP的.NET插件的問(wèn)題

第第頁(yè)軟件測(cè)試工具中QTP操作xml文件的方法及擴(kuò)展QTP的.NET插件的問(wèn)題軟件測(cè)試工具中QTP操作xml文件的方法及擴(kuò)展QTP的.NET插件的問(wèn)題

發(fā)表于：2023-08-30來(lái)源：：點(diǎn)擊數(shù)：標(biāo)簽：工具軟件測(cè)試QTPqtpxml

軟件測(cè)試工具中QTP操作xml文件的方法及擴(kuò)展QTP的.NET插件的問(wèn)題目前，企業(yè)中對(duì)XML的應(yīng)用越來(lái)越廣泛，作為自動(dòng)化測(cè)試的測(cè)試工程師，也應(yīng)該掌握XML的讀寫操作。以下我使用XMLDOM技術(shù)演示一個(gè)例子，用以讀取XML指定節(jié)點(diǎn)的節(jié)點(diǎn)內(nèi)容值。讀取函數(shù)原型GetX

軟件測(cè)試工具中QTP操作xml文件的方法及擴(kuò)展QTP的.NET插件的問(wèn)題

目前，企業(yè)中對(duì)XML的應(yīng)用越來(lái)越廣泛，作為自動(dòng)化測(cè)試的測(cè)試工程師，也應(yīng)該掌握XML的讀寫操作。

以下我使用XMLDOM技術(shù)演示一個(gè)例子，用以讀取XML指定節(jié)點(diǎn)的節(jié)點(diǎn)內(nèi)容值。

讀取函數(shù)原型GetXmlstrXmlPath,nodeName

這個(gè)函數(shù)的第一個(gè)參數(shù)表示xml文件所在路徑，第二個(gè)參數(shù)表示希望獲取到的xml節(jié)點(diǎn)名，請(qǐng)結(jié)合下列例子看

首先，新建一個(gè)vbs文件（取個(gè)名字叫readXml.vbs），輸入代碼：

DimstrXML

GetXml"c:search.xml","TestResult"'這個(gè)函數(shù)的第一個(gè)參數(shù)表示xml文件所在路徑，第二個(gè)參數(shù)表示希望獲取到的xml節(jié)點(diǎn)名，請(qǐng)結(jié)合下列例子看

MsgBoxstrXML

FunctionGetXml(ByValstrXmlFilePath,ByValxmlNodeName)

DimxmlDoc,xmlRoot

SetxmlDoc=CreateObject("Microsoft.XMLDOM")'創(chuàng)建XMLDOM對(duì)象

xmlDoc.async=False'控制加載模式為同步模式（xml樹加載完畢后再執(zhí)行后續(xù)代碼）

xmlDoc.loadstrXmlFilePath'載入xml文件

IfxmlDoc.parseError.errorCode0Then

MsgBox"XML文件格式不對(duì)，原因是："Chr(13)xmlDoc.parseError.reason

ExitFunction

EndIf

SetxmlRoot=xmlDoc.documentElement

xmlRecursionxmlRoot,xmlNodeName'調(diào)用xml遞歸函數(shù)傳入指定的根和節(jié)點(diǎn)名

GetXml=True'xmlRecursion(xmlRoot)

EndFunction

FunctionxmlRecursion(byvalxmlNode,byvalstrNodeName)

IfxmlNode.nodeName=strNodeNameAndxmlNode.hasChildNodesThen

IfxmlNode.childNodes.item(0).nodeName="#text"Then

strXML=strXMLxmlNode.nodeName":"xmlNode.childNodes.item(0).nodeValueChr(13)

EndIf

EndIf

IfxmlNode.hasChildNodesThen

ForEachchildNodeItemInxmlNode.ChildNodes

IfchildNodeItem.hasChildNodesThen

xmlRecursionchildNodeItem,strNodeName

EndIf

Next

EndIf

EndFunction

問(wèn)題：

haschildnodes()這個(gè)方法好奇怪，明明已經(jīng)沒(méi)有子節(jié)點(diǎn)了，卻仍然返回true，

比如TestResult1/TestResult這個(gè)節(jié)點(diǎn)，它的childNodes.item(0).nodeName竟然是“#text”，但是根據(jù)例子來(lái)看TestResult已經(jīng)沒(méi)有子節(jié)點(diǎn)了阿

回答：

因?yàn)樵趚ml有一個(gè)特殊的“子節(jié)點(diǎn)”——文本節(jié)點(diǎn)。比如TestResult100/TestResult

這個(gè)節(jié)點(diǎn)TestResult下并不是沒(méi)有子節(jié)點(diǎn)，而是有一個(gè)文本節(jié)點(diǎn)，這個(gè)節(jié)點(diǎn)的nodeName就是“#text”，而nodeValue是100.如果是TestResult/這種節(jié)點(diǎn)的話，那么用hasChildNodes則返回False

遍歷xml的代碼：

OptionExplicit

DimxmlDoc,myErr,strXML

SetxmlDoc=CreateObject("Microsoft.XMLDOM")

xmlDoc.async=False

xmlDoc.load"c:calc1.xml"

IfxmlDoc.parseError.errorCode0Then

SetmyErr=xmlDoc.parseError

MsgBox("XMLLoadsFailed."myErr.reason)

Else

SetrootNode=xmlDoc.documentElement

CallrTravel(rootNode)

MsgBoxstrXML

EndIf

SubrTravel(rNode)

DimblnTwo,intTestCase,

blnTwo=False

iLen=rNode.childNodes.length

IfiLen0Then

Fori=0TorNode.childNodes.length-1

Setchild=rNode.childNodes.item(i)

CallrTravel(child)

childtext=child.nodeValue

strXML=strXMLchildtextchr(13)

Next

Else

ExitSub

EndIf

EndSub

方法二：

OptionExplicit

DimxmlDoc,myErr,strXML

SetxmlDoc=CreateObject("Microsoft.XMLDOM")

xmlDoc.async=False

xmlDoc.load"c:calc1.xml"

IfxmlDoc.parseError.errorCode0Then

SetmyErr=xmlDoc.parseError

MsgBox("XMLLoadsFailed."myErr.reason)

Else

SetrootNode=xmlDoc.documentElement

CallrTravel(rootNode)

MsgBoxstrXML

EndIf

SubrTravel(rNode)

DimblnTwo,intTestCase,

blnTwo=False

iLen=rNode.childNodes.length

IfiLen0Then

Fori=0TorNode.childNodes.length-1

Setchild=rNode.childNodes.item(i)

CallrTravel(child)

childtext=child.nodeValue

strXML=strXMLchildtextchr(13)

Next

Else

ExitSub

EndIf

EndSub

以下是我今天試用QTP插件時(shí)的一些過(guò)程，大家可以看一下

今天我試了一下QTP的.NET插件，QTP的.NET插件對(duì)于解決.NET控件識(shí)別和測(cè)試問(wèn)題非常重要，是測(cè)試.NET平臺(tái)程序必不可少的條件（包括測(cè)試.NETWindowsForms、.NETWebForms、WPF控件）。.NET第三方控件或自定義的個(gè)性化控件的識(shí)別和測(cè)試問(wèn)題可通過(guò)QTP的.NET插件提供的擴(kuò)展模塊來(lái)解決。

QTP的.NET插件主要提供了兩種方式的擴(kuò)展來(lái)支持個(gè)性化控件的測(cè)試：

（1）.NETDLL：使用其為VS.NET提供的CustomServer模板來(lái)創(chuàng)建用C#寫的DLL來(lái)支持個(gè)性化控件的測(cè)試。

（2）XML：使用XML文件來(lái)描述擴(kuò)展。

第一種方法的好處是可以充分利用開(kāi)發(fā)工具的優(yōu)勢(shì)，第二種方法則相對(duì)更便捷，可隨時(shí)進(jìn)行擴(kuò)展，但是今天試用的結(jié)果是可實(shí)現(xiàn)錄制方面的擴(kuò)展，在回放方面的擴(kuò)展不能實(shí)現(xiàn)，不知道是不是還有什么訣竅沒(méi)掌握，QTP提供的幫助文檔在這方面也比較有限。

在SwfConfig.xml文件中的擴(kuò)展描述如下所示：

?xmlversion="1.0"encoding="UTF-8"?

Controls

ControlType="MyWindowsControlLibrary1.UserControl1"

Settings

ParameterName="ConfigPath"D:\ProgramFiles\MercuryInteractive\QuickTestProfessional\dat\ControlDefineXMLSample.XML

/Parameter

/Settings

CustomRecord

Component

ContextAUT-XML/Context

/Component

/CustomRecord

CustomReplay

Component

ContextAUT-XML/Context

/Component

/CustomReplay

/Control

/Controls

ControlDefineXMLSample.XML的定義如下：

?xmlversion="1.0"encoding="UTF-8"?

Customization

Record

Events

Eventname="MouseDown"enabled="true"

RecordedCommandname="MouseMove"

Parameter

EventArgs.X

/Parameter

Parameterlang="C#"

Parameter=EventArgs.Y;

/Parameter

/RecordedCommand

/Event

/Events

/Record

Replay

Methods

Methodname="SetValue"

Parameters

Parametertype="int"name="X"/

Parametertype="int"name="Y"/

/Parameters

MethodBody

System.Windows.Forms.MessageBox.S