|
在系统中,如果输入错误格式的email地址,在文本框后就会出现一个提示信息的小图标,鼠标放在小图标上,显示“email格式不正确”。
在QTP中,写了如下代码来验证email格式是否正确,但是不管是输入正确,还是错误的email信息,测试报告中都显示格式输入的是不正确的。
Function RegExpTest(patrn,str)
Dim regEx
Set regEx = new RegExp
regEx.Pattern= patrn
regEx.Ignorecase =True
regEx.Global = True
msgbox (str)
RegExpTest = regEx.Test(str)
If RegExpTest = True Then
Reporter.ReportEvent micPass,"Email格式测试","输入格式正确"
else If Browser("CFS-CRM V 6.4.0.05").Window("客户信息 -- 网页对话框").Page("客户信息").Frame("Frame").Image("Email格式不正确").Exist Then
Reporter.ReportEvent micPass,"Email格式测试","输入格式错误,提示信息存在"
else
Reporter.ReportEvent micFail,"Email格式测试","输入格式错误,提示信息不存在"
End If
End If
End Function
email的值是取的datatable里的值,循环进行验证好几种情况。
问题是:当输入正确的email时,结果显示输入的仍是错误的,到底是哪里写的不对呢。 |
|