如何使用QTP测试文本域中的自动截断功能？

sunym · 发表于 2008-1-22 15:07:07

jinsen · 发表于 2008-1-22 15:11:44

自动截断功能？
能不能举个例子？

心随风而飘 · 发表于 2008-1-22 15:32:59

他是不是想说断点啊？按F9，脚本就会在运行到所加断点的位置自动停止了

sunym · 发表于 2008-1-22 15:38:21

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

jinsen · 发表于 2008-1-22 16:08:39

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:34

Thank you very much!

sunym · 发表于 2008-1-22 16:31:46

试验了一下，发现停在在了这一步：Browser("xxx").Page("xxx").WebEdit("xxx").set "1234567890abcdefg"
提示：The parameter is incorrect

jinsen · 发表于 2008-1-22 16:40:59

是MaxLength定死了15位，还是可以输入超过15位，超过的位数调用方法删除？

sunym · 发表于 2008-1-22 17:00:32

MaxLength定死了15位

jinsen · 发表于 2008-1-22 17:07:46

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

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:03

Thank you

暗涧幽火 · 发表于 2008-1-23 11:47:32

还不错啊！就是没有按理想的来啊！

three116 · 发表于 2008-1-23 13:05:41

我的建议是直接检查它的maxlength，至于能否输入超过个maxlength就不用测了，那就检查输入为空，1个和15个字符，至于超过15个，则直接检查maxlength

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 如何使用QTP测试文本域中的自动截断功能？

相关帖子

站长推荐 /1