老李分享：qtp自动化测试框架赏析-关键字自动化测试框架

老李分享：qtp自动化测试框架赏析-关键字自动化测试框架

 

QTP从2005年继winrunner,robot逐渐退出历史舞台之后，占领主流自动化测试工具市场已经10年之久。当初为了提高在自动化测试工具市场的竞争力，通过vbs脚本语言讨好自动化测试（专指脚本开发人员）工程师，通过关键字视图讨好业务（这里主要是指对自业务很熟，能找出问题的人员）测试人员。

自动化测试工具选型：这是重要的两个评估维度，工具所用的脚本能完成自动化测试，如ajax技术出现后，qtp在某些环境需要调用js脚本才能完成自动化测试，qtp脚本的扩展要求对qtp自动化测试工程师提出了更高的要求。关键字视图只能完成机械的对象选择，我们有的时候对象可能是一套脚本，这样qtp本身提供的关键字视图的框架功能就无法完成。

在这里我提供一个简单的关键字自动化测试框架的模型，核心引擎我实现了，如果你感兴趣，可以根据公司的情况，进一步扩展。

一.首先设计的表驱动的数据形式

二.实现对象映射引擎

Option Explicit
Public WebBrowserDesc
public WebPageDesc
public WebEditDesc,
public WebButtonDesc
public WebObjDesc ' ...............................

Dim arrObjProperty
Dim arrObjValue
Dim strObjProperty
Dim strObjValue

Public Function fnApplicationMap(strBrowser,strObjName)
　　Set WebBrowserDesc=Description.Create
　　WebBrowserDesc("application version").Value="internet explorer6"
　　If strBrowser<>"" Then
　　　　WebBrowserDesc("name").value=strBrowser
　　End If
　　Set WebPageDesc=Description.Create
　　WebPageDesc("title").Value=strBrowser

　　Select Case strObject
　　　　Case "WebEdit"
　　　　　　Set WebEditDesc=Description.Create
　　　　　　WebEditDesc ("html tag").Value="INPUT"
　　　　　　WebEditDesc("name").Value=strObjName
　　　　Case "WebButton"
　　　　　　Set WebButtonDesc=Description.Create
　　　　　　WebButtonDesc ("html tag").Value="INPUT"
　　　　　　WebButtonDesc("name").Value=strObjName
　　　　Case "WebElement"
　　　　　　Set WebObjDesc=Description.Create
　　　　　　arrObjProperty=Split(strObjName,",")
　　　　　　For each strObjProperty in arrObjProperty
　　　　　　　　arrObjValue=Split(strObjProperty,"=")
　　　　　　　　strObjValue=trim(arrObjValue(0))
　　　　　　　　WebObjDesc(strObjValue).Value=trim(arrObjValue(1))

　　　　　　Next
　　　End Select

End Function

三.实现函数生成引擎

Public Function fnBrowser(WebBrowserDesc,WebPageDesc,strParam,strExpected,strCkPt)
　　Select Case strAction
　　Case "Invoke"
　　　　If Browser(WebBrowserDesc).Exist Then
　　　　　　Browser(WebBrowserDesc).Close
　　　　End If
　　　　Systemutil.Run "ie",strParam
　　End Select
End Function

Public Function fnWebEdit(WebBrowserDesc,WebPageDesc,WebEditDesc,strParam,strExpected,strCkPt)
　　　Select Case strAction
　　　Case "Set"
　　　　　　Browser(WebBrowserDesc).Page(WebPageDesc).WebEdit(WebEditDesc).Set strParam
　　　‘case "任意方法"

’执行任意方法

End Select

End Function

Public Function fnWebButton(WebBrowserDesc,WebPageDesc,WebButtonDesc,strParam,strExpected,strCkPt)
　　Select Case strAction
　　Case "Click"
　　　　Browser(WebBrowserDesc).Page(WebPageDesc).WebButton(WebEditDesc).Click 
　　　　Browser(WebBrowserDesc).Page(WebPageDesc).Sync

‘case "任意方法"

’执行任意方法

　　End Select

End Function

Public Function fnWebElement(WebBrowserDesc,WebPageDesc,WebObjDesc,strParam,strExpected,strCkPt)
　　Select Case strAction
　　Case "VerifyMinorError"
　　　　strActual=Browser(WebBrowserDesc).Page(WebPageDesc).WebElement(WebObjDesc).GetROProperty(strParam)
　　　　Call fnVerfyMinorErro(strExpected,strActual,strCkPt)
　　Case "VerifyProperty"
　　　　strActual=Browser(WebBrowserDesc).Page(WebPageDesc).WebElement(WebObjDesc).GetROProperty(strParam)
　　　　Call fnVerify(strExpected,strActual,strCkPt)
　　‘case "任意方法"

’执行任意方法

End Select

End Function

四.读取表格，实现数据表格引擎

这部分可以通过excel com实现，简单点可以通过qtp自身带的datatable对象完成处理数据表格

五. 技术实现框架其他部分

上层的处理功能，基本用到对象识别技术，qtp的aom接口技术等等

原先qtp的课程最早的时候是两天的课程完成自动化测试框架，因为技术的发展，现在需要4天完成一个项目的自动化测试框架设计以及实现的课程目标。

现在很多培训机构和个人讲师在讲工具只是讲技术点，而是否能设计并实现自动化测试框架是一个测试开发工程师（高级自动化测试工程师）的基本要求，技术点是基石，架构设计是艺术，课程高下在于课程本身内容的优劣，学习的目标。为什么很多人自学工具不行，为什么参加了付费培训也不会，这是因为自学一般都是在网络上学习，网络上学习的知识都是碎片化的，本身就缺乏知识体系，加上零散的知识点，学习起来必然又费力又收效小，参加付费培训也没有提高多少（少部分基础好的人觉得达成了培训目标，老师的只言片语对学生起到了提笔点睛的作用，自己通过快速总结突破了个人瓶颈，大部分的人感觉是学到了东西，但是根本就无法胜任工作，还沉醉在自责中）， 也好还是网络上流传的文章技术技巧也好，都是以工具为主，而所有的工具和技术的采用都是为了完成测试目标，所以课程的设计也是以自动化测试框架的完成为目标。选择培训要看课程高度，技术点在什么情况下去讲，应该有应用场景，是围绕主线的应用场景，很多时候培训讲师是随意设计应用场景，对于自动化测试工具培训应该是围绕主线的自动化测试框架，自动化测试平台的设计，所有知识点应该是在这个框架里得到具体应用。我们有自动化测试框架设计的专项训练课程，希望可以和大家分享。

我们已经把qtp的自动化测试以及自动化测试框架课程已经免费，免费课程报名qq群：450192312