51Testing软件测试论坛

标题: 如何使用QTP测试文本域中的自动截断功能？ [打印本页]

作者: sunym 时间: 2008-1-22 15:07
标题: 如何使用QTP测试文本域中的自动截断功能？
如何使用QTP测试文本域中的自动截断功能？

作者: jinsen 时间: 2008-1-22 15:11
自动截断功能？
能不能举个例子？

作者: 心随风而飘 时间: 2008-1-22 15:32
他是不是想说断点啊？按F9，脚本就会在运行到所加断点的位置自动停止了

作者: sunym 时间: 2008-1-22 15:38
测试一个文本域的长度限制，比如输入长度为限制为1-15，当输入长度超过15时，就会自动截断。

作者: jinsen 时间: 2008-1-22 16:08
Browser("xxx").Page("xxx").WebEdit("xxx").set "1234567890abcdefg"
Dim tempValue
tempValue = Browser("xxx").Page("xxx").WebEdit("xxx").GetROProperty("value")
if Len(tempValue) > 15 then
Reporter.ReportEvent micFail,"checkpoint", "Fail"
Else
Reporter.ReportEvent micPass,"checkpoint", "Pass"
End if

作者: sunym 时间: 2008-1-22 16:17
Thank you very much!

作者: sunym 时间: 2008-1-22 16:31
试验了一下，发现停在在了这一步：Browser("xxx").Page("xxx").WebEdit("xxx").set "1234567890abcdefg"
提示：The parameter is incorrect

作者: jinsen 时间: 2008-1-22 16:40
是MaxLength定死了15位，还是可以输入超过15位，超过的位数调用方法删除？

作者: sunym 时间: 2008-1-22 17:00
MaxLength定死了15位

作者: jinsen 时间: 2008-1-22 17:07

晕啊，楼主你那不是测试自动截位，而是测试最大位数。

Dim tempValue
tempValue = Browser("xxx").Page("xxx").WebEdit("xxx").Object.maxLength
if tempValue = 15 then
Reporter.ReportEvent micPass,"checkpoint", "

ass"
Else
Reporter.ReportEvent micFail,"checkpoint", "Fail"
End if

作者: sunym 时间: 2008-1-22 17:20
Thank you

作者: 暗涧幽火 时间: 2008-1-23 11:47
还不错啊！就是没有按理想的来啊！

作者: three116 时间: 2008-1-23 13:05
我的建议是直接检查它的maxlength，至于能否输入超过个maxlength就不用测了，那就检查输入为空，1个和15个字符，至于超过15个，则直接检查maxlength

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)