El siguiente ejemplo es una prueba contra la aplicación Classics Java:
#Region " Script Header "
' Functional Test Script
' author Administrator
Imports Microsoft.VisualBasic
Imports Rational.Test.Ft
Imports Rational.Test.Ft.Object.Interfaces
Imports Rational.Test.Ft.Object.Interfaces.SAP
Imports Rational.Test.Ft.Object.Interfaces.Siebel
Imports Rational.Test.Ft.Script
Imports Rational.Test.Ft.Value
Imports Rational.Test.Ft.Vp
#End Region
Public Class GetListDataExample
Inherits GetListDataExampleHelper
'Script Name : GetListDataExample
'Generated : Jun 29, 2006 3:14:01 PM
'Description : Functional Test Script
'Original Host : Windows XP x86 5.1 build 2600 Service Pack 2
'since 2006/06/29
'author Administrator
Public Function TestMain(ByVal args() As Object)
StartApp("ClassicsJavaA")
'Frame: ClassicsCD
Tree2().Click(AtPath("Composers->Schubert->Location(PLUS_MINUS)"))
Tree2().Click(AtPath("Composers->Schubert->Die schone Mullerin, Op. 25"))
PlaceOrder().Click()
'Declare variables for list
Dim nameList As ITestDataList
Dim nameListElements As ITestDataElementList
Dim nameListElement As ITestDataElement
' Frame: Member Logon
NameCombo().WaitForExistence()
'Available test data types: {selected=Selected List Element,
' list=List Elements}
Dim Ht As System.Collections.Hashtable = NameCombo().GetTestDataTypes()
System.Console.WriteLine(Ht)
' Get all elements
Dim testdata As ITestData
nameList = CType(NameCombo().GetTestData("list"), TestDataList)
nameListElements = nameList.GetElements()
Dim ListElemCount As Integer
ListElemCount = nameList.GetElementCount()
Dim I As Integer
For I = 0 To ListElemCount - 1
nameListElement = nameListElements.GetElement(I)
System.Console.WriteLine(nameListElement.GetElement().ToString())
'Click on each element
NameCombo().Click()
NameCombo().Click(AtText(nameListElement.GetElement().ToString()))
Next I
'Frame: Member Logon
Cancel().Click()
'Frame: ClassicsCD
ClassicsJava(ANY,MAY_EXIT).Close()
End Function
End Class
Este ejemplo, primero obre la aplicación Classics Java. Seleccione un compositor en el árbol y un álbum (compositor = Schubert, álbum = "Die Schone Muellerin") y pulsa el botón "Hacer pedido". En la siguiente pantalla (Inicio de sesión - diálogo), el código de ejemplo extrae la lista de valores del recuadro combinado y los visualiza en la ventana de la consola antes de pulsar cada elemento de la lista.
El primer paso es extraer datos desde el control, utilizando el método GetTestData:
Dim testdata As ITestData
nameList = CType(NameCombo().GetTestData("list"), TestDataList)
Para saber qué tipos de datos están disponibles para un control, utilice el siguiente código:
Dim Ht As System.Collections.Hashtable = NameCombo().GetTestDataTypes() System.Console.WriteLine(Ht)
En este conjunto de datos concreto, puede crear una matriz que contenga todos los elementos de la lista. Esto se efectúa de la siguiente manera:
Dim nameListElements As ITestDataElementList nameListElements = nameList.GetElements()
Con los elementos de lista en cuestión, puede crear un bucle que acceda a cada elemento de la lista. Para determinar el número de elementos de lista, utilice el método GetElementCount. Para extraer el valor del elemento de lista se utiliza el método GetElement. En el ejemplo se efectúa con el siguiente código:
Dim ListElemCount As Integer
ListElemCount = nameList.GetElementCount()
Dim I As Integer
For I = 0 To ListElemCount - 1
nameListElement = nameListElements.GetElement(I)
System.Console.WriteLine(nameListElement.GetElement().ToString())
'Click on each element
NameCombo().Click()
NameCombo().Click(AtText(nameListElement.GetElement().ToString()))
Next I