本文關(guān)鍵詞：QTP自動化測試權(quán)威指南，由筆耕文化傳播整理發(fā)布。

> 其他綜合 > QTP自動化測試權(quán)威指南（第二版） 6.2 Environment對象 2013-06-14 09:18:24         我要投稿   

本文所屬圖書 > QTP自動化測試權(quán)威指南（第二版）

本書是QTP測試的權(quán)威指南，展示了作者在軟件測試方面的造詣。本書分為基礎(chǔ)知識和高級技巧兩個部分。第1章～第18章是基礎(chǔ)知識篇，介紹了QTP的基本功能。第1章自動化測試流程，第2章QTP幫助文檔的使用，第3章對象庫...  立即去當(dāng)當(dāng)網(wǎng)訂購

通過Environment對象可以訪問到所有環(huán)境變量的值，，此對象本身提供了以下3個方法。
·　ExternalFileName屬性。返回當(dāng)前已載入的外部環(huán)境變量的文件名。
·　LoadFromFile方法。載入具體的環(huán)境變量文件，需要提供完整文件路徑，并保證XML的語法沒有錯誤。
·　Value屬性。即可用于對環(huán)境變量進(jìn)行設(shè)置也可用于進(jìn)行檢索。我們可以通過此屬性返回任意環(huán)境變量的值，但對于用戶自定義環(huán)境變量，value屬性只用于賦值。
問題6-1  如何訪問環(huán)境變量？
 
'通過TestName環(huán)境變量獲取測試腳本名稱
sTestName = Environment.Value("TestName")
'Value屬性是Environment對象的默認(rèn)屬性
'這里可以省略value屬性,如以下的方式進(jìn)行簡寫
sTestName = Environment("TestName")
 
問題6-2  如何驗證環(huán)境變量是否已經(jīng)存在？
如果我們嘗試著訪問并不存在的環(huán)境變量，那么QTP在執(zhí)行時會直接報錯，因此，為了避免此問題的發(fā)生，我們可以通過以下腳本來驗證是否存在。
 
'驗證環(huán)境變量是否存在
Public Function IsEnvExist(ByVal varName)
  IsEnvExist = True
  '一旦出現(xiàn)錯誤就執(zhí)行下一步,并關(guān)閉彈出框
  On Error Resume Next
  Dim envVal
  envVal = Environment(varName)
  '驗證是否出現(xiàn)錯誤
  If err.number<>0 Then
    '如果環(huán)境變量不存在,把標(biāo)志位設(shè)置為false
    IsEnvExist = False
  End If
  '打開錯誤彈出框
  On Error Goto 0
End Function
 
以下代碼示范了如何來調(diào)用IsEnvExist函數(shù)。
 
'驗證”Invalid”環(huán)境變量是否存在
MsgBox IsEnvExist("Invalid")
 
問題6-3  怎樣在運行時定義環(huán)境變量？                  
為環(huán)境變量分配一個不存在的值時，QTP會主動創(chuàng)建并初始化這個變量，以下腳本需要依賴上一個腳本。
 
'驗證環(huán)境變量"Invalid"是否存在
MsgBox IsEnvExist("Invalid") '此句返回False
'在運行時創(chuàng)建并賦值環(huán)境變量
Environment("Invalid") = "Not invalid any more"
'驗證環(huán)境變量"Invalid"是否存在 
MsgBox IsEnvExist("Invalid") '此時變量已存在因此返回True
 
問題6-4  環(huán)境變量如何導(dǎo)出XML文件                                                           
這里提供兩種方式，第一種方式是以文本字符串的形式生成XML，第二種方式為直接使用QTP的保留對象XmlUtil來創(chuàng)建XML對象并導(dǎo)出XML。在接下來的例子中，我們會使用較為簡單的文本字符串方式，而第二種方式通過XMLUtil方式會在以后的章節(jié)中進(jìn)行講解。
以下是我們需要創(chuàng)建的XML腳本。
 
<Environment>
 

  本文關(guān)鍵詞：QTP自動化測試權(quán)威指南，由筆耕文化傳播整理發(fā)布。

本文編號：354379