34 lines
808 B
QBasic
34 lines
808 B
QBasic
Attribute VB_Name = "usage_wait"
|
|
Private Assert As New Selenium.Assert
|
|
Private Waiter As New Selenium.Waiter
|
|
|
|
|
|
Private Sub Should_Wait_For_Delegate()
|
|
Dim driver As New ChromeDriver
|
|
|
|
' without delegate
|
|
While Waiter.Not(WaitDelegate1(), timeout:=2000): Wend
|
|
|
|
' without delegate with argument
|
|
While Waiter.Not(WaitDelegate2(driver), timeout:=2000): Wend
|
|
|
|
' with delegate on the driver
|
|
driver.Until AddressOf WaitDelegate1, timeout:=2000
|
|
|
|
' with delegate with argument
|
|
Waiter.Until AddressOf WaitDelegate1, driver, timeout:=2000
|
|
|
|
' with delegate without argument
|
|
Waiter.Until AddressOf WaitDelegate2, timeout:=2000
|
|
End Sub
|
|
|
|
|
|
Private Function WaitDelegate1()
|
|
WaitDelegate1 = True
|
|
End Function
|
|
|
|
|
|
Private Function WaitDelegate2(driver As WebDriver)
|
|
WaitDelegate2 = True
|
|
End Function
|