Can someone check and tell me where is my function wrong. 

Open "Iexplore","https://gmcard.preprod.drmp.gm.com/core/vehicles/ra-2012";

Text_Check "Redemption Allowance: $1,000"

 

Function Open(fBro,fUrl)

   systemutil.Run fBro,fUrl

End Function

Function Text_Check(fText)

Set myp=Browser("title:=.*").page("title:=.*")

Set myo=description.Create()

'     myo("micclass").value="WebElement"

'               myo("html tag").Value="LI"

                myo ("innertext").value=fText

                                myo("index").value=0

If myp.WebElement(myo).GetROProperty("innertext")=  fText then

                                msgbox "pass"

                Else

                msgbox "Fail"

                End if

set myp= nothing

set myo= nothing

 

End Function

-- 
-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

--- 
You received this message because you are subscribed to the Google Groups "QTP 
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.


Reply via email to