03-07-2011, 02:00 PM
You must forgive my neurons, they have been having a hard time, but if i have got what you said, then i believe, this is what you are looking for,
Let me know if this works?
Code:
On Error Resume Next
WebService("ServicesService_2").login XMLWarehouse("userBean")
testError = WebService("ServicesService_2").GetLastError
if ( reason = "Incorrect password" ) then
expectedError = "User name or password is incorrect!"
if InStr(testError, expectedError) <> 0 then
Reporter.ReportEvent micPass, "Login Test", "test reason: " & reason & " passed."
else
Reporter.ReportEvent micFail, "Login Test", "test reason: " & reason & " failed."
End if
msgbox Err.Number &" "& Err.Description
End if
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.