51Testing软件测试论坛

标题: 验证点问题 [打印本页]

作者: Axin 时间: 2005-4-19 11:37
标题: 验证点问题
按精华区，弄了这一脚本。发现验证点有问题。

'$Include "sqautil.sbh"

Sub Main
Dim Result As Integer
dim dp as long
dim x as integer
dim num1 as string
dim num2 as string
dim sum as string

'Initially Recorded: 2003-7-18 8:51:18
'Script Name: Calcular

StartApplication "C:\WINDOWS\system32\calc.exe"

dp=SQADatapoolOpen("jsq")

for x=1 to 3
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,num1)
Call SQADatapoolValue(dp,2,num2)
Call SQADatapoolValue(dp,3,sum)
Window SetContext, "Caption=Calculator", ""
InputKeys num1 &"{+}"& num2 &"{ENTER}"

Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")

next

Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

如果把 Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")这行注掉，可以回放，也能看到系统读datapool中的三组数据。

不注掉，则通不过。

robot 2003
jsq　datapool中弄了三列数据num1,num2和sum

分别为:
1,2,3
3,3,6
3,2,5

请问问题出在哪？要怎么改动？

作者: 司空公子 时间: 2005-4-19 17:36
人家只是将思路写出来，具体的要根据没个人的情况进行调试的。
在我机上验证点语句如下
Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value="& sum)
调试通过

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