QTP自动化测试权威指南（第二版）

发布时间：2017-05-10 08:18

  本文关键词：QTP自动化测试权威指南，由笔耕文化传播整理发布。

> 其他综合 > QTP自动化测试权威指南（第二版） 6.2 Environment对象 2013-06-14 09:18:24         我要投稿   

本文所属图书 > QTP自动化测试权威指南（第二版）

本书是QTP测试的权威指南，展示了作者在软件测试方面的造诣。本书分为基础知识和高级技巧两个部分。第1章～第18章是基础知识篇，介绍了QTP的基本功能。第1章自动化测试流程，第2章QTP帮助文档的使用，第3章对象库...  立即去当当网订购

通过Environment对象可以访问到所有环境变量的值，，此对象本身提供了以下3个方法。
·　ExternalFileName属性。返回当前已载入的外部环境变量的文件名。
·　LoadFromFile方法。载入具体的环境变量文件，需要提供完整文件路径，并保证XML的语法没有错误。
·　Value属性。即可用于对环境变量进行设置也可用于进行检索。我们可以通过此属性返回任意环境变量的值，但对于用户自定义环境变量，value属性只用于赋值。
问题6-1  如何访问环境变量？
 
'通过TestName环境变量获取测试脚本名称
sTestName = Environment.Value("TestName")
'Value属性是Environment对象的默认属性
'这里可以省略value属性,如以下的方式进行简写
sTestName = Environment("TestName")
 
问题6-2  如何验证环境变量是否已经存在？
如果我们尝试着访问并不存在的环境变量，那么QTP在执行时会直接报错，因此，为了避免此问题的发生，我们可以通过以下脚本来验证是否存在。
 
'验证环境变量是否存在
Public Function IsEnvExist(ByVal varName)
  IsEnvExist = True
  '一旦出现错误就执行下一步,并关闭弹出框
  On Error Resume Next
  Dim envVal
  envVal = Environment(varName)
  '验证是否出现错误
  If err.number<>0 Then
    '如果环境变量不存在,把标志位设置为false
    IsEnvExist = False
  End If
  '打开错误弹出框
  On Error Goto 0
End Function
 
以下代码示范了如何来调用IsEnvExist函数。
 
'验证”Invalid”环境变量是否存在
MsgBox IsEnvExist("Invalid")
 
问题6-3  怎样在运行时定义环境变量？                  
为环境变量分配一个不存在的值时，QTP会主动创建并初始化这个变量，以下脚本需要依赖上一个脚本。
 
'验证环境变量"Invalid"是否存在
MsgBox IsEnvExist("Invalid") '此句返回False
'在运行时创建并赋值环境变量
Environment("Invalid") = "Not invalid any more"
'验证环境变量"Invalid"是否存在 
MsgBox IsEnvExist("Invalid") '此时变量已存在因此返回True
 
问题6-4  环境变量如何导出XML文件                                                           
这里提供两种方式，第一种方式是以文本字符串的形式生成XML，第二种方式为直接使用QTP的保留对象XmlUtil来创建XML对象并导出XML。在接下来的例子中，我们会使用较为简单的文本字符串方式，而第二种方式通过XMLUtil方式会在以后的章节中进行讲解。
以下是我们需要创建的XML脚本。
 
<Environment>
 

  本文关键词：QTP自动化测试权威指南，由笔耕文化传播整理发布。

本文编号：354379