原文地址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,测试报告等
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环境变量使用方法,文档详细介绍了QTP环境变量的概念及其使用方法。
QTP调用XML的方法大全,所有函数都应有尽有
QTP中自定义的常用函数,包括FTP,测试报告等
QTP对象库XML文件 XML QTP
qtp小知识,里面讲了如何获取单元格的值,如何把值插入datatable里用,代码来启动浏览器,及一些函数
QTP函数说明(中文)QT学习中函数,有实例及操作
QTP常用函数,如:Left 函数、Mid 函数、Len 函数等
通过自定义对象来操作一些QTP录制脚本无法驱动的对象。
常用QTP函数合集,样例内容如下: '有用的没用的都丢到一起,可能会有你想要的,原本是分为FileOper、DataOper、We bOper(基于SAFFRON)、Win32Oper和ErrorOper五个文件 '后面三个超级啰嗦超级长的废物可能别人用不...
QTP技巧和实用函数,非常适合新人学习!
方式1:Executefile 方式2:加到QTP的Resorece 方式3:ExecuteGlobal方法
第23篇-QTP环境变量第23篇-QTP环境变量第23篇-QTP环境变量
QTP常用函数 QTP截图函数 QTP时间处理函数
NULL 博文链接:https://ktc7000.iteye.com/blog/1752939
QTP中常用的VB函数 QTP中常用的VB函数
用户自定义的环境变量可以指向一个XML文件,这样可以实现在众多test之间共享变量。 12)QTP可以引用外部的VBS代码库,通过Settings-》Resource加入,也可以ExecuteFile命令在代码中直接执行。这种VBS库可以为所有...