QTP通用性的自动化测试框架

最新推荐文章于 2015-03-08 23:17:00 发布

franktan2010

最新推荐文章于 2015-03-08 23:17:00 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： QTP VBS 文章标签：测试 dictionary browser function 浏览器 dialog

本文链接：https://blog.youkuaiyun.com/franktan2010/article/details/7340530

QTP VBS 专栏收录该内容

49 篇文章

订阅专栏

本文介绍了一种基于QTP的通用自动化测试框架设计方案，通过封装DLL文件、注册新方法、多浏览器支持及自定义报告等方式，提高框架的扩展性和重用性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

QTP通用性的自动化测试框架：

Frank

如果在一般自动化测试框架上(连接QC)再考虑下面四个特性，那么就极大地提高了扩展性和重用性，而且可以降低QTP编程错误。就成为了合适的大型，多平台项目的自动化测试框架。

1. 将一些基础的函数封装在DLL文件中，我们以.net为例。

在DLL中我们利用了C#语言的特性，编写很多实用的通用性function。如果需要还可以组织成类。

在QTP调用DLL的方法或含DLL方法的类：

DotNetDllPath = “C:\DotNet.dll”

set dotInstance = DotNetFactory.CreateInstance("DotNet.Name", DotNetDllPath)

dotInstance.Method

可以把相似的function封装在类中，然后在library 生成这个类的对象实例（newclassName），那么在QTP中可以直接用这个对象（实例）及其所有的方法。从而极大地拓展了QTP的功能。

2. 注册新的方法和重写QTP方法。因为注册新的方法比较简单，步骤及原理和重写QTP方法一样，所以下面以重写QTP方法为例子。

这里面涉及的最重要的一条语法是：

RegisterUserFunc TOClass, MethodName, FunctionName, SetAsDefault

E.g. RegisterUserFunc "WebEdit", "Set", "MySet"

“Set” 是QTP可以显示的新的或自带的方法。

“MySet” 是自己写function 的name。Function FunctionName

大家都应用(SetTOproperty, GetROPropery等)时属性值的名称是绝对不能出错的，为了防止出错，我们可以重写方法。

以Dialog().SetTOProperty("windowid", win01)为例，我们对每一次Dialog的SetTOProperty的windowid属性编码，就得写这就话，而且"windowid"拼写不能错；而且Static，WinButton对象都有这样的麻烦。

现在我们写一个这样的方法：

Function UpdateWindowId(obj, newValue)

obj.SetTOProperty "window id", newValue

Set UpdateWindowId = obj

End function

RegisterUserFunc "Dialog", "UpdateWindowId", " UpdateWindowId"

RegisterUserFunc "Static", "UpdateWindowId", "UpdateWindowId"

RegisterUserFunc "WinButton", "UpdateWindowId", "UpdateWindowId"

这样就彻底解决了这些对象，在每次编程SetTOProperty 的"windowid"属性时，要找属性的name是什么。

其实这样做是不够的，你可以很轻松SetTOProperty 的"windowid"属性时，但是其他的很多属性呢？比如说”text”。所以我们写一个更通用的方法来解决SetTOProperty的属性值问题。

通用性的SetTOProperty方法是：

Function Update(obj, propertyName, val)

obj.SetTOProperty propertyName, val

Set Update = obj

End function

所以上面的UpdateWindowId不用具体实现，只要调用通用性的Update方法：

Function UpdateWindowId(obj, newValue)

Set UpdateWindowId = Update(obj, "window id", newValue )

End function

像set (比如SetTOProperty) 方法是直接这样实现的。但是像get(比如getTOProperty)方法就除了调用GetROProperty外，还要考虑这个方法是否已经被注册了，如果已经注册了，调用新的注册方法，否则调用GetTOProperty方法。

所以通用性的getTOProperty方法是：

function GetRuntimePropertyOrOverride(obj, strProperty, strApiPropertyName)

dim qtpName : qtpName = GetFullQtpName(obj)

dim func : set func = GetRef(qtpName & "." & strApiPropertyName)

if not IsEmpty(func) then

GetRuntimePropertyOrOverride = func(objSender)

exit function

end if

GetRuntimePropertyOrOverride = GetRoProperty(obj, strProperty)

end function

function GetFullQtpName(obj)

dim fullQtpName: fullQtpName = obj.GetTOProperty("class Name") & "(""" & _

obj.GetTOProperty("TestObjName") & """)"

dim objCurrent : set objCurrent = obj

do while not IsEmpty(objCurrent.GetTOProperty("parent"))

set objCurrent = objCurrent.GetTOProperty("parent")

fullQtpName = objCurrent.GetTOProperty("class Name") & "(""" & _

objCurrent.GetTOProperty("TestObjName") & """)" & "." & fullQtpName

loop

GetFullQtpName = fullQtpName

end function

3. 关于多浏览器的问题比如IE不同版本和Firefox。

最好定义一个类，把所有浏览器的型号作为属性。

class BrowserType

public property get IE7

IE7 = "IE7"

end property

public property get IE8

IE8 = "IE8"

end property

public property get FF3

FF3 = "FF3"

end property

End class

再定义一个类，就是QTP要直接运用的这个类的对象。因为我们设计的是面对多浏览器窗口的，所以我们首先生成一个储存browser的Dictionary（比如key(BrowserName)-Vlaue(Browser)）。这个类里面有属性：browser_pro(broswer的reference)和Type（浏览器的type）和对外用get和set方法。要实现我们平常浏览器切换等功能，下面的方法就很好的实现了：

get CurrentBrowserName

{返回browser_pro }

SetCurrentBrowser(strBrowserName)

{检查browserName 是否在Dictionary中，browser_pro .SetTOProperty "hwnd", m_browsers(strBrowserName).Hwnd}

GetBrowser(strBrowserName)

{检查browserName 是否在Dictionary中，然后返回它的Value(browser对象)}

AddExistingBrowser(browserName, browserDescription)

{首先看browserName 是否存在于Dictionary，不存在的话加到Dictionary中}

AddNewBrowser(browserName)

{看browser type和上面类BrowserType的那个属性相等，调用不同的浏览器程序(SystemUtil.Run iexplore.exe/firefox.exe),最后把新生成的browser加到Dictionary }

RemoveAndCloseBrowser(browserName):

{检查browserName 是否在Dictionary中，然后对它的Value(browser对象)调close方法}