原文地址http://blog.csdn.net/tulituqi/article/details/5441121
大家可能都知道怎么在一个Test里的多个action之间传递参数,可以用DataTable也可以用Parameter。
那么在多个Test之间如何传递参数呢,一般常用的有excel,这个方法应该比较普遍了。这里介绍一下我自己设计的方法。
就是用环境变量来传递参数,我们都知道有个Environment环境变量(在File-Test Setting下),其中有一个是user-define,用户自定义的变量,而且这里还可以使用调用外部文件的方式来使用。那么我的方法就是基于此。
这里面我自己写了4个函数,
addVar(filepath,varname,varvalue) 给指定地址的xml添加一个变量。
delVar(filepath,varname) 删除xml里的变量
GetVars(filepath) 获得xml里的所有变量,以dictionary对象返回
updateVar(filepath,varname,varvalue) 更新xml里的变量的值。
我自己写的函数都不是很完善,没有过多考虑异常处理,大部分还是以正常通过为主写的,希望大家见谅。
这里的XML文件是QTP支持的格式,具体格式大家可以自己先创建几个环境变量,然后导出到外部文件,再看看那个xml的结构就行了。
大体上是这样的结构:
<Environment>
<Variable>
<Name>upload</Name>
<Value>T:/TestData/产险测试组/自动化公共库/upload.gif</Value>
</Variable>
<Variable>
<Name>newVar</Name>
<Value>ssdfff</Value>
</Variable>
</Environment>
所以我写的代码只能用于QTP这个环境变量的xml文件,对于其他的xml很可能不支持了。
再谈谈具体的用法,我这里的Test每一个都是独立的案例,其内部可以再调用其他可重用的action,也就是之前大家常用的方式,而我写这些函数的用途是为了能让多个独立的案例串连起来执行,在QC中通过执行流依次调用。
首先,在Test里开头使用
Environment.LoadFromFile(Path)
这个方法来读取环境变量文件。
使用的时候只要知道变量名即可了,直接使用Environment("upload")就可以了。
如果这个案例最后有需要传递出去的参数,就可以用addVar的方法。
另外需要考虑的问题就是在使用环境变量前,xml文件里如果没有那个变量就会报错。这里需要慎重一些。
这样使用的好处,每一个案例都是独立的,方便传递参数,同时,如果提出一个新的概念就是Test重用。我在做的一个项目就完整的使用我这套设计,把很长的案例都细化分解成一个个独立的案例,我就是为了Test之间传递参数方便使用的这个方法。而且在使用中发现有很多关键环节的Test可以重用,这比action的重用范围大了一些。不过我这些案例并没有什么特殊的,本身也会用到action重用,比如登录退出。
关于Test重用的话题,改天我拿几个例子来说比较好。可惜手头没有QC环境,不然可以截图配合QC使用来详细说明。
[vb] view plaincopyprint?
filepath="C:/UserDedinedEnvironment.xml"
Set dics = GetVars(filepath)
addVar filepath,"tttt","aaaa"
Set dics = GetVars(filepath)
updateVar filepath,"tttt","55555555"
Set dics = GetVars(filepath)
delVar filepath,"tttt"
Set dics = GetVars(filepath)
xx=1
Function GetVars(filepath) '已完成
Set objxml= CreateObject("MSXML.DOMDocument")
objxml.load filepath
Set Environ = objxml.lastChild '获得<Environment>节点
Set dic = CreateObject("Scripting.Dictionary")
allVar = Environ.childNodes.length '获得<Environment>节点的子节点数量,即变量个数。
For i=0 To allVar-1
Set vars=Environ.childNodes.item(i) '获得<Variable>节点
var_name=vars.childNodes.item(0).nodeTypedValue
var_value=vars.childNodes.item(1).nodeTypedValue
dic.Add var_name,var_value
Next
Set GetVars = dic '返回dictionary的环境变量列表
Set dic = Nothing
End Function
Function addVar(filepath,varname,varvalue) '已完成
Set objxml= CreateObject("MSXML.DOMDocument")
objxml.load filepath
Set Environ = objxml.lastChild '获得<Environment>节点
Set dic = CreateObject("Scripting.Dictionary")
allVar = Environ.childNodes.length '获得<Environment>节点的子节点数量,即变量个数。
For i=0 To allVar-1
Set vars=Environ.childNodes.item(i) '获得<Variable>节点
var_name=vars.childNodes.item(0).nodeTypedValue
var_value=vars.childNodes.item(1).nodeTypedValue
dic.Add var_name,var_value
Next
If dic.Exists(varname) Then
updateVar filepath,varname,varvalue
Exit Function
End If
Set vars =Environ.childNodes.item(0)
Set newVar= vars.cloneNode(1) '复制<Variable>节点
'修改子节点的值
newVar.childNodes.item(0).nodeTypedValue = varname
newVar.childNodes.item(1).nodeTypedValue = varvalue
'添加节点
Set newEnv= Environ.appendChild(newVar)
'保存xml
objxml.save filepath
End Function
Function updateVar(filepath,varname,varvalue) '已完成
Set objxml= CreateObject("MSXML.DOMDocument")
objxml.load filepath
Set Environ = objxml.lastChild '获得<Environment>节点
allVar = Environ.childNodes.length '获得<Environment>节点的子节点数量,即变量个数。
' Set dic = CreateObject("Scripting.Dictionary")
' For i=0 To allVar-1
' Set vars=Environ.childNodes.item(i) '获得<Variable>节点
' var_name=vars.childNodes.item(0).nodeTypedValue
' var_value=vars.childNodes.item(1).nodeTypedValue
' dic.Add var_name,var_value
' Next
' If Not dic.Exists(varname) Then
' addVar filepath,varname,varvalue
' Exit Function
' End If
For i=0 To allVar-1
Set vars=Environ.childNodes.item(i) '获得<Variable>节点
var_name=vars.childNodes.item(0).nodeTypedValue
If var_name=varname Then
vars.childNodes.item(1).nodeTypedValue = varvalue '更新变量值
Exit For
End If
Next
'保存xml
objxml.save filepath
End Function
Function delVar(filepath,varname) '已完成
Set objxml= CreateObject("MSXML.DOMDocument")
objxml.load filepath
Set Environ = objxml.lastChild '获得<Environment>节点
allVar = Environ.childNodes.length '获得<Environment>节点的子节点数量,即变量个数。
If allVar=1 Then
Exit Function
End If
For i=0 To allVar-1
Set vars=Environ.childNodes.item(i) '获得<Variable>节点
var_name=vars.childNodes.item(0).nodeTypedValue
If var_name=varname Then
Environ.removeChild(vars) '删除节点
Exit For
End If
Next
'保存xml
objxml.save filepath
End Function
分享到:
相关推荐
在这个主题中,我们将深入探讨QTP中自定义的常用函数,特别是与FTP操作和测试报告相关的部分。 首先,FTP(File Transfer Protocol)是网络上用于传输文件的标准协议。在QTP中,我们可能需要自定义函数来执行FTP...
2.4 环境变量 2.5 常用保留对象(Utility Objects) 2.6 QuickTest自动化模型对象(AOM) 2.7 无人值守测试的守护神—场景恢复(Recovery Scenarios) 3.1正则表达式 3.2 HTML DOM测试应用 3.2.1 了解DOM在QTP中应用...
本文将深入探讨QTP中自定义的常用函数,特别是涉及到FTP操作以及测试报告的生成。 首先,FTP(File Transfer Protocol)是网络上文件传输的标准协议,常用于在服务器之间或服务器与客户端之间上传和下载文件。在QTP...
QTP调用XML的方法大全,所有函数都应有尽有
在QTP中,XML文件被视为一个特殊的文件对象,可以通过File对象来操作。要读取或写入XML文件,可以使用File对象的OpenAsTextStream和WriteText/ReadAll方法。例如: ```vbscript Dim fileObj Set fileObj = ...
### QTP小知识几个简单函数及应用 QTP(Quick Test Professional)是一种自动化测试工具,...以上就是关于QTP中几个常用函数及其应用的基本介绍。通过灵活运用这些函数,可以显著提高自动化测试脚本的功能性和效率。
本文将对一份QTP函数合集进行详细解析,这份合集包含了一系列实用的函数,覆盖了文件操作、数据操作、Web操作、Windows操作以及错误处理等多个方面。虽然原作者提到部分函数可能显得冗长或不太实用,但它们却为我们...
【QTP 中文版用户指南】是一份专为初学者设计的详尽教程,旨在帮助用户快速掌握QuickTest Professional(QTP,现已被更名为HP Unified Functional Testing)的基本操作和高级功能。QTP是一款自动化测试工具,由HP...
在给定的描述中,我们看到如何从 QTP 的 XML 结果文件中提取数据,并将这些数据汇总到一个 Excel 文件中。 首先,我们需要了解如何读取 XML 文件。在示例代码中,使用了 `GetXmlAttribute` 函数来获取特定 XML 路径...
【QTP环境变量】在软件测试领域中是一个重要的概念,特别是在自动化测试中,它允许测试者灵活地管理和控制测试执行的环境配置。QuickTest Professional(QTP),现已被命名为Unified Functional Testing(UFT),是...
文档"QTP常用函数.docx"列举了一些QTP中常用的自定义函数,这些函数不仅适用于QTP,还适用于Robot,后者是HP Unified Functional Testing(UFT)的一部分。以下是对这些函数的详细说明: 1. **Get_Data()**:这是一...
【QTP函数说明(中文)】QT学习中涉及的函数包括了对Web浏览器窗口的操作、截图功能以及页面内容的检查和处理。以下是对这些函数的详细说明: 1. **SelectWin** 方法:此方法用于在多窗口环境中选择一个特定的...
在QTP中,自定义对象是指用户根据特定需求手动创建的对象,这些对象可以帮助我们识别和操作那些QTP默认不支持或难以识别的元素。通过自定义对象,我们可以更加灵活地控制测试过程中的各种复杂情况。 #### 二、为...
在自动化测试领域,QuickTest Professional(QTP)是一款广受欢迎的工具,它允许用户通过录制、脚本和自定义函数来实现对应用程序的功能测试。在QTP中,常常需要使用到Visual Basic(VB)的内置函数来处理字符串、...
QTP对象库XML文件 XML QTP
《QTP中文版用户手册》是一份详尽的资源,为使用QuickTest Professional(QTP)进行自动化测试的用户提供全面指导。...手册中的每个章节都是精心设计,旨在帮助用户从理论到实践,全面掌握QTP的各种功能和技巧。