In most of the case its necessory to check the current displayed or activated window with the expected window or dialog.
So below is the code to get the Current activated window name
sActiveWindow = Window("ForeGround:=True").GetROProperty("Title")
With the above line sActiveWindow will get the current active window name.
For Example consider we are writing Test cases on calculator.
So expected window is calculator, the commands will be
sActiveWindow = Window("ForeGround:=True").GetROProperty("Title")
sActiveExplorerArray=Split(sActiveWindow," ")
iActiveExplorerArrayElement=Ubound(sActiveExplorerArray)
sActiveExplorer=sActiveExplorerArray(iActiveExplorerArrayElement)
sActiveExplorer will have the string "Calculator"
Check for that
If Lcase(sActiveExplorer)="calculator" then
' Test case is PASS
Else
' Test case is FAIL
End If
Now put every thing Together
sActiveWindow = Window("ForeGround:=True").GetROProperty("Title")
sActiveExplorerArray=Split(sActiveWindow," ")
iActiveExplorerArrayElement=Ubound(sActiveExplorerArray)
sActiveExplorer=sActiveExplorerArray(iActiveExplorerArrayElement)
If Lcase(sActiveExplorer)="calculator" then
' Test case is PASS
Else
' Test case is FAIL
End If
Next level of coding is getting the Expected window Name from Data table
Code for that is :
iRowNumber=1
DataTable.SetCurrentRow(iRowNumber)
sGetDatatablevalue=DataTable.Value(,dtLocalSheet)
Now we can have an function to check the window name for us. This function will take column name, row Number as parameters and Return PASS or FAIL
Public Checkwindow(Col_Name,RowNumber)
' Get the current Activated window
sActiveWindow = Window("ForeGround:=True").GetROProperty("Title")
sActiveExplorerArray=Split(sActiveWindow," ")
iActiveExplorerArrayElement=Ubound(sActiveExplorerArray)
sActiveExplorer=sActiveExplorerArray(iActiveExplorerArrayElement)
'Get the Expected Window Name from Data Table
DataTable.SetCurrentRow(RowNumber)
sGetDatatablevalue=DataTable.Value(Col_Name,dtLocalSheet)
'Compare Current and Expected
If Lcase(sActiveExplorer)=Lcase(sGetDatatablevalue) then
' Test case is PASS
Checkwindow="PASS"
Else
' Test case is FAIL
Checkwindow="FAIL"
End If
End Function
Call this function starting of each Test case
If you have any comments please let me know.
