4.10選擇列表中的一項
在SAFFRON中，可以使用SelectFromList函數從下拉框列表（WebList對象）中選擇指定的一項。SelectFromList的定義如下所示：
' Selects a specific value from a listbox, or combobox
' objname - name of the control -- use Object Spy if you don't know the name property
' text - the item in the combobox to select
Public Function SelectFromList (objname, text)
localDesc = ""
rv = ""
rval = false
If thirdlevel <> "" Then
localDesc = GenerateDescription(level(2))
Else
localDesc = GenerateDescription(level(1))
End If
AutoSync()
localDesc = localdesc & GenerateObjectDescription("WebList", "name:=" & objname)
Execute "cnt = " & localDesc & "GetROProperty(" & Quote("items count") & ")"
For i = 1 to cnt
Execute "rv = " & localDesc & "GetItem (" & i & ")"
If rv = text Then
rval = true
End If
Next
If rval Then
Execute localDesc & "Select " & Quote(text)
End If
If rval Then
Report micPass, "WebList Selection", "The WebList item " & Quote(text) & " was selected."
Else
Report micFail, "WebList Selection", "The WebList item " & Quote(text) & " was NOT found."
End If
SelectFromList = rval
End Function
假設我們需要從如圖所示的界面中的“Departure City”的下拉框中選擇其中一項，則可使用SelectFromList函數來實現。
測試腳本可以這樣寫：
' 選擇航班起始城市為"San Francisco"
SelectFromList "depart","San Francisco"
4.11 關閉瀏覽器
Web頁面測試的最后一個步驟一般都是關閉瀏覽器，在SAFFRON中，也把這個過程封裝成了一個名為“CloseBrowsers”的函數，該函數的定義如下：
' close all opened browsers
Public Function CloseBrowsers
If Browser("micclass:=Browser").Exist (0) Then
Browser("micclass:=Browser").Close
End If
While Browser("micclass:=Browser", "index:=1").Exist (0)
Browser("index:=1").Close
Wend
If Browser("micclass:=Browser").Exist (0) Then
Browser("micclass:=Browser").Close
End If
End Function
CloseBrowsers函數會把當前所有打開的瀏覽器都關閉，腳本中采用描述性編程的方式獲取所有對象類型為“Browser”的測試對象，然后循環逐個關閉所有這種類型的測試對象。
5、對SAFFRON框架進行擴展
SAFFRON是一個基本的框架，它封裝了瀏覽器的相關測試操作、封裝了一些基本對象的測試操作，例如Link、WebButton、WebEdit、WebList等控件，可用于基本的WEB頁面的測試，并且簡化了測試腳本的編寫，可以讓代碼的可讀性和可維護性得到增強。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
