關于QTP的測試對象的進一步改進

　　關于QTP的測試對象的進一步改進  軟件測試

　　這次是在上次寫的文章“關于qtp的測試對象”的基礎上的進一步討論，這里的改進主要是針對完全的手動開發qtp自動化測試腳本而言的，對于錄制后簡單的修改并不使用。在功能的自動化測試中，測試對象是基礎，為了提高測試對象的高度可復用性以及便于日后的升級和維護，我們應該使用盡量少的屬性去標示出這個對象，例如：創建一個JavaWindow對象：

　　set win = description.Create

　　win("class description").value = "window"

　　這樣就足可以來表示出給對象了，但是當有多個JavaWindow對象對象同時存在時，這樣創建時明顯有問題的，這時我們就不得不再去增加一個title來識別出每一個不同的JavaWindow對象了，但是如果我們直接把title屬性寫入到代碼中，這樣在升級版本或客戶要就修改標題后，我們就不得不去相應的到我們的代碼中去修改這個標題，在一個大型的項目中會有很多地方需要去修改，這樣既不容易該全，也很麻煩。解決辦法：

　　get the JavaWindow object

　　function getWindowByTitle(title)

　　set win = description.Create

　　win("class description").value = "window"

　　win("title").value = title

　　set getWindowByTitle = win

　　end function

　　*********************************************

　　test.txt --this is the configure file

　　#the login dialog

　　TITLE="backup express 3.1"

　　*********************************************

　　this function get the value by name

　　Function getText(name)

　　Dim fso,cPath,f

　　cPath = "E:\javaGui.txt"

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set f = fso.OpenTextFile(cPath,1,False)

　　Do While Not f.AtEndOfStream

原文轉自：http://www.anti-gravitydesign.com