QTP測試AJAX時的等待問題

AJAX目前已被廣泛應用，在使用QTP測試AJAX應用時經常碰到需要等待AJAX操作完成資料載入的問題。relevantcodes.com的《QTP: Synchronization for AJAX Applications》這篇文章介紹瞭如何封裝一個AjaxUtil物件來統一處理這些問題：

http://relevantcodes.com/qtp-synchronization-for-ajax-applications/

 

 

下面是一個使用AjaxUtil物件的例子：

SystemUtil.Run "iexplore.exe", "www.kayak.com"

 

If Not Browser("title:=Cheap Flights.*").Exist(10) Then ExitTest

 

AjaxUtil.ObjectSync = 30  ' Check if the added objects exist before we synchronize

AjaxUtil.StatusSync = 10    ' Wait for a max 10 seconds if there is no status change

 

'Add Objects to collection (Its mandatory that you add objects to the class)

AjaxUtil.AddObject "MyBrowser1", Browser("title:=Cheap Flights.*")

AjaxUtil.AddObject "MyTable", Browser("title:=Kayak.com Search Results")_

    .WebTable("innertext:=.*of.*roundtrips shown.*|.*forget all.*", "index:=0")

AjaxUtil.AddObject "MyBrowser2", Browser("title:=Kayak.com Search Results")

 

Browser("title:=Cheap Flights.*").WebEdit("html id:=destination")_

    .Set "Atlanta, GA - Hartsfield-Jackson (ATL)"

 

' Its mandatory that you set a browser for which you will run the test for changes in elements

AjaxUtil.SetBrowser "MyBrowser1"        ' Required Step

 

' Synchronize for changes in objects:

AjaxUtil.SyncObjects "WebElement"

 

Browser("title:=Cheap Flights.*").WebButton("html id:=fdimgbutton").Click

 

'You can modify the ObjectSync and StatusSync times here for the next operations.

'Example: StatusSync is increased

AjaxUtil.StatusSync = 15       ' increase the StatusSync

 

'Synchronize with the flights table

AjaxUtil.SyncWebTable "MyTable"

 

'Test Complete - release dictionary

AjaxUtil.DestroyDict