51Testing软件测试论坛

标题: Robot功能测试示例 [打印本页]

作者: 海龙 时间: 2004-5-6 21:42
标题: Robot功能测试示例
在成功安装和建立测试项目以后，就可以利用testmanager和robot进行软件测试了。下面以一个windows自带的计算器测试例子，展示rational的功能。

1．启动robot，登录窗口默认用户名是admin，输入在建立测试项目时指定的密码（默认为空），即可进入robot主界面；
2．点击工具栏上的GUI按钮，录制GUI脚本，在窗口中输入脚本名称；
3．在GUI Record工具栏上点击第四个按钮，在GUI Inset工具栏点击Start Application按钮，点击browse…按钮，选择计算器程序；
4．从键盘输入1＋1＝，然后在GUI Record工具栏上点击第四个按钮，在GUI Inset工具栏点击Alphanumeric校验点，选择第三项Numeric Equivalence；
5．关闭计算器，点击GUI Record工具栏上的STOP按钮，完成脚本的录制；

录制完的脚本：
Sub Main
Dim Result As Integer

'Initially Recorded: 2003-7-18  9:30:45
'Script Name: 计算器
StartApplication "C:\WINNT\system32\calc.exe"

Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"

Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")

Window CloseWin, "", ""

End Sub

这个脚本并不能正确回放，需要将
Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
改为：
Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=2.")
这样就可以点击工具栏上的回放按钮进行回放。

   这个脚本只能验证一组数据，并不能体现出自动化测试带来的便利。需要对脚本进行手工修改，在脚本加入循环结构和数据池（DATAPOOL），这样就可以实现一个脚本测试大量的数据，脚本易于维护而且功能强大。

修改后的脚本如下：
'$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: 计算器－2

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

dp=SQADatapoolOpen("jsq")

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

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

next

Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

注：SQADatapoolOpen("jsq")，jsq为数据池（DATAPOOL）名称，需要在testmanager中手工创建。

**经过简单的编辑后，测试时只需要将测试数据导入数据池（DATAPOOL）回放脚本即可，通过查看测试log检查哪些错误，在开始测试时就可以使用，而不是等到回归，也不是手工过程的简单重复。在测试之前，可以先准备好测试数据备用。

我在实际的测试工作中，功能测试的脚本大部分是基于此模式的，使用效果也很理想。

这个帖子我在测试管理中心也发过，有些网友反映不能正确回放。以上是我在windows2000专业版、rational2003上重新录制并正确回放的的。

欢迎大家交流。

[ Last edited by 海龙 on 2004-7-30 at 22:33 ]

作者: 小颖_hlj 时间: 2004-7-23 14:34
对于dp你没有定义，

作者: 小颖_hlj 时间: 2004-7-23 14:50
标题: 数据池如何定义的
你的jsq如何定义的，
定义了几列，为什么对sum也定义一列

作者: ivy5156 时间: 2004-7-28 15:27
标题: num1,num2在datapool中该取何种类型？String吗？
num1,num2在datapool中该取何种类型？String吗？
为什么取出来都是一样的随机数据
sum能自动计算出来吗？

[ Last edited by ivy5156 on 2004-7-28 at 15:28 ]

作者: houna305 时间: 2004-8-8 21:45
我得也不能正常进行

作者: ghost 时间: 2004-8-9 09:32
取整型，设定不同的Seed就可以了。

作者: ivy5156 时间: 2004-8-10 16:49
如果都是自动生成的，当然也可以自己改动，如果我要随即100条数据，难道所有的 seed都要我自己写嘛

作者: houna305 时间: 2004-8-12 11:52
我的可以自动进行运算器的计算和测试，测试结果也是正确的的，但就是运行的很慢，是超慢，是为什么呢，希望大家多多指点啊

作者: pcl2004_27 时间: 2004-8-18 12:28
时间慢，你把robot的回放参数时间间隔修改一下！减少时间间隔，试验一下！

作者: llmmgl 时间: 2004-10-9 16:35
标题: 对“Robot功能测试示例”文章不明白的地方。请版主回答，谢谢！
1、dp要怎么定义？
2、数据池jsq该怎么定义才行？
3、  Call SQADatapoolValue(dp,1,num1)
   Call SQADatapoolValue(dp,2,num2)
   Call SQADatapoolValue(dp,3,sum)
这几个SQA语句中的1、2、3表示什么

作者: hxf 时间: 2004-10-9 16:47
1、dp要怎么定义？
dim dp as long
2、数据池jsq该怎么定义才行？
在testmanager中定义。
3、  Call SQADatapoolValue(dp,1,num1)
   Call SQADatapoolValue(dp,2,num2)
   Call SQADatapoolValue(dp,3,sum)
这几个SQA语句中的1、2、3表示什么
从datapool中取第几个字段的值。

作者: fjzpdjn 时间: 2004-10-27 15:22
为什么提示 "varibale SQADatapoolOpen undefined',我已建立了JSQ数据池了，是不是数据池文件要放在哪个目录下才行

作者: fjzpdjn 时间: 2004-10-27 17:10
标题: 能帮解答：为什么把 dp设为 long类型
能帮解答：为什么把 dp设为 long类型

作者: gezi68705 时间: 2004-11-4 13:29
请教大侠：为什么我录制的脚步是这样的？
Sub Main
Dim Result As Integer

'Initially Recorded: 2004-11-4 13:21:58
'Script Name: 计算器
StartApplication "C:\WINNT\system32\calc.exe"

Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"

Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""

End Sub
点停止按钮后提示：there is no text in field or field cannot be read.
这是那里没有配置好呀？

作者: gezi68705 时间: 2004-11-5 16:55
请海龙版主或各位大侠帮忙指点以下！

作者: 暗夜之吻 时间: 2004-11-9 10:01
Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")
如果text和value的值都从datapool中取的话，那比较的结果也没有什么意义啊？

作者: Daven520 时间: 2004-11-12 12:03
还是不行~~~

作者: jakedd 时间: 2004-12-20 15:32

Originally posted by gezi68705 at 2004-11-4 01:29 PM:
请教大侠：为什么我录制的脚步是这样的？
Sub Main
Dim Result As Integer

'Initially Recorded: 2004-11-4 13:21:58
'Script Name: 计算器
StartApplication "C:\WINNT\system32\ ...

我也是这个问题，该怎么解决呢？脚本里根本没有检测点啊

作者: jakedd 时间: 2004-12-21 09:17
原来是检测点没选对象引起的，现在好了

作者: hailong1977 时间: 2005-1-25 09:51
标题: 请问海龙？
我用rational2002录制的脚本和你的一样，只有一处
你的：Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
我的：Result = LabelVP (CompareNumeric, "ObjectIndex=1","VP=Alphanumeric;Value=200000")
第一次按我的回放，“pass”。可建了datapool后，这里我就不知道怎么改了。

同时我按你那个例子，在datapool见建了3列，num1、num2、sum，分别添了数据。可回放出错。下面是我的脚本，麻烦看看。

'$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: 2005-1-25  9:06:14
'Script Name: data1
StartApplication "C:\WINNT\system32\calc.exe"

dp=SQADatapoolOpen("jsq")

for x=1 to 5
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,num1)
Call SQADatapoolValue(dp,2,num2)
Call SQADatapoolValue(dp,3,sum)

Window SetContext, "Caption=计算器", ""

   InputKeys num1 &"{+}"& num2 &"{ENTER}"

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

next

Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

作者: hailong1977 时间: 2005-1-25 09:52
标题: 请问海龙？
我用rational2002录制的脚本和你的一样，只有一处
你的：Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
我的：Result = LabelVP (CompareNumeric, "ObjectIndex=1","VP=Alphanumeric;Value=200000")
第一次按我的回放，“pass”。可建了datapool后，这里我就不知道怎么改了。

同时我按你那个例子，在datapool见建了3列，num1、num2、sum，分别添了数据。可回放出错。下面是我的脚本，麻烦看看。

'$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: 2005-1-25  9:06:14
'Script Name: data1
StartApplication "C:\WINNT\system32\calc.exe"

dp=SQADatapoolOpen("jsq")

for x=1 to 5
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,num1)
Call SQADatapoolValue(dp,2,num2)
Call SQADatapoolValue(dp,3,sum)

Window SetContext, "Caption=计算器", ""

   InputKeys num1 &"{+}"& num2 &"{ENTER}"

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

next

Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

作者: hailong1977 时间: 2005-1-25 10:00
标题: 请问海龙？
我用rational2002录制的脚本和你的一样，只有一处
你的：Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
我的：Result = LabelVP (CompareNumeric, "ObjectIndex=1","VP=Alphanumeric;Value=200000")
第一次按我的回放，“pass”。可建了datapool后，这里我就不知道怎么改了。

同时我按你那个例子，在datapool见建了3列，num1、num2、sum，分别添了数据。可回放出错。下面是我的脚本，麻烦看看。

'$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: 2005-1-25  9:06:14
'Script Name: data1
StartApplication "C:\WINNT\system32\calc.exe"

dp=SQADatapoolOpen("jsq")

for x=1 to 5
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,num1)
Call SQADatapoolValue(dp,2,num2)
Call SQADatapoolValue(dp,3,sum)

Window SetContext, "Caption=计算器", ""

   InputKeys num1 &"{+}"& num2 &"{ENTER}"

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

next

Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

作者: 阿蓝 时间: 2005-2-22 14:38

Originally posted by hailong1977 at 2005-1-25 10:00 AM:
我用rational2002录制的脚本和你的一样，只有一处
你的：Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
我的：Result = LabelVP (CompareNumeric, &quo ...

把你的那行改成 Result = LabelVP (CompareNumeric, "Type=Label;ObjectIndex=1", "VP=Alphanumeric;Value="& sum &".")
试试

作者: 爱吃苹果 时间: 2005-3-14 10:22
在第一次录制脚本中，设置验证点的时候我的不和你的一样，
Result = LabelVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Wait=2,30;Value=200000")(我的)
Result = LabelVP( mpareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
我在设置验证点的时候不知道选择哪个控件,请指点

作者: heather 时间: 2005-3-30 17:03
标题: 我看了上面的程序，在我的机子上也运行了的。
我看了上面的程序，在我的机子上也运行了的。但是在运行数据池的时候，运算结果是对的，但是为什么test log里却不是pass呢？

作者: heather 时间: 2005-3-30 17:07
我运行的同hailong1977一样，也看了阿蓝的帖子，将其改为Result = LabelVP (CompareNumeric, "Type=Label;ObjectIndex=1", "VP=Alphanumeric;Value="& sum &".") ，但是结果还是不行啊

作者: 司空公子 时间: 2005-3-31 09:22
你的datapool里有没有设sum的值啊，不然在验证点比较的时候，由于没有比较的baseline，当然会报错。

作者: 目标资深测试员 时间: 2005-6-14 16:53

Originally posted by fjzpdjn at 2004-10-27 05:10 PM:
能帮解答：为什么把 dp设为 long类型

把那段该为试试
Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"

Result = WindowVP (CompareNumeric, "Caption=计算器", "VP=Alphanumeric;Value=0")

Window SetContext, "Caption=计算器", ""
Window CloseWin, "", ""

作者: 目标资深测试员 时间: 2005-6-14 16:55
上面那个发错了应该是针对这个发表的

Originally posted by gezi68705 at 2004-11-4 01:29 PM:
请教大侠：为什么我录制的脚步是这样的？
Sub Main
Dim Result As Integer

'Initially Recorded: 2004-11-4 13:21:58
'Script Name: 计算器
StartApplication "C:\WINNT\system32\ ...

你改为这个试试

Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"

Result = WindowVP (CompareNumeric, "Caption=计算器", "VP=Alphanumeric;Value=0")

Window SetContext, "Caption=计算器", ""
Window CloseWin, "", ""

作者: mgy2005 时间: 2005-7-15 14:26
我把 SCRIPT改了一下，在DATAPOOL中只输入num1 和 num2 的值，然后在script 中算出sum的值，再做比较。如何在Datapool 中赋值，我是用下面几步来实现的：（不好意思我用英文，因为我的是英文版）。

1. Open Rational Task Manager.
2. Select Tools-> Manage-> DataPools.
3. Click on New and enter "jsq" as name. Click OK.
4. You will get a message "An Empty datapool called jsq has been registered..." Select Yes
5. Select Insert Before. In the "Data Type Specification jsq" dialogue, enter "B" in the "Name". Select Insert Before again. Enter "A" in the "Name".
6. Click Save.
7. Click Close.
8. Select OK on the message beginning "If you leave the Datapool editor..."
9. In the "Manage Datapools" dialogue, select jsq and press Edit
10. Click on on Edit Datapool Data in the "Datapool Properties" dialogue.
11. Enter three pairs of numbers. There will be one number in each pair for for A and one for B. and click on Save and Close. For example:
A          B
1          0
-1       1
15       16

12. Click on OK in the "Datapool Properties" dialogues.
13. Click on Close in "Manage Datapools."

14. Return to the "Rational Robot" and select File and Playback in the Test "CaclTest-2" Script.
15. Click on OK and if it asks you about overwriting a log, click Yes
16. The system will bring up the Test log. Expand "Script Start" You should observe one "Application Start" and three "Verification Point."
17. If you want to see the numbers each time, go to the Test Add script. Just before "Result - EditBoxVP..." enter the line Print "sum is" & sum
18. Then select File and Playback. (Click after viewing each message.)

下面是我的script.
注意我是在WINDOW XP 下测的，所以StartAppUnderNone "C:\WINDOWS\system32\calc.exe"

'$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: 7/13/2005  3:00:36 PM
'Script Name: CaclTest-2
StartAppUnderNone "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", ""
EditBox Click, "ObjectIndex=1", "Coords=301,9"
'InputKeys num1&"{+}"& num2 & "{ENTER}" has mistake?
InputKeys num1 &"{+}"& num2 &"{ENTER}"

sum = str(val(num1) + val(num2))
Print "num1 is" & num1
Print "num2 is" & num2
Print "sum is" & sum

Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value="& sum &",")

next
Call SQADatapoolClose(dp)

Window CloseWin, "", ""

End Sub

作者: tongfenglcz 时间: 2005-7-29 15:07

Originally posted by ghost at 2004-8-9 09:32 AM:
取整型，设定不同的Seed就可以了。

必须设置sequence为Random,再将Seed设置成不同的值，就可以生成不同的随机数

我的问题：
1、设置为整型，第1次设置长度为默认15，后觉得数字太大，将长度设置为2。此时如果不设置最大或最小值，为什么生成的数据都大于2位的？难道最大最小值Robot不会通过设置的字段长度自己控制？

2、如果是数字字母类型的，怎样设置，使得生成的数据长度小于等于length的值，我的与length值等值？
谢谢！！！

作者: tongfenglcz 时间: 2005-7-29 15:27

Originally posted by 小颖_hlj at 2004-7-23 02:50 PM:
你的jsq如何定义的，
定义了几列，为什么对sum也定义一列

定义sum我倒是能理解
可是为什么要从datapool调sum的值呢？
Call SQADatapoolValue(dp,3,sum) ？？？

作者: fishbasking 时间: 2005-8-4 16:41
标题: ？？
是把正确结果和sum字段的值比较吗？我在sum里输的值不等于num1+num2,为什么结果都是pass呢

[ Last edited by fishbasking on 2005-8-8 at 09:44 ]

作者: jinyuhifont 时间: 2005-12-26 17:42
标题: 是不是因为我的是winxp啊
我的result 不是labelVP 而是viewboxVP。

作者: jinyuhifont 时间: 2005-12-27 10:38
标题: 终于成了
就是情况和30楼heather的情况一样,还要继续研究啊,呵呵这是我学robot 的开胃菜,还好有点鼓励啊

作者: jinyuhifont 时间: 2005-12-27 10:43
标题: 关于datapool 论坛里有斑竹海龙的文章
http://bbs.51testing.com/viewthr ... ;highlight=datapool

作者: fj5400cn1981 时间: 2006-1-10 10:45
datapool的取值没有问题,但是请问如何从文件或是xls文件中取值

作者: wangpu 时间: 2006-2-13 09:43
标题: Why chose Datapool?
记得手册中有句话“如果你的脚本只运行一次，就可以不用Dataool”。是啊，根据楼主的例子，我完全可以用数组来实现加数据的功能啊。
请问：这种理解对吗？

作者: zhanghaiying911 时间: 2006-7-13 17:50
论坛上计算器例子的结果是Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
而我自己录制的是Result = LabelVP (CompareNumeric, "ObjectIndex=1","VP=Alphanumeric;Value=200000")

请高手告诉我，Text=2.和ObjectIndex=1在此处是表示的什么意思，还有二者有什么关系和区别，我的是ObjectIndex=1，要是我把它改成Text=2.回放也能成功。可是我不明白二者表示的具体意思。

[ 本帖最后由 zhanghaiying911 于 2006-7-13 17:52 编辑 ]

作者: zhanghaiying911 时间: 2006-7-14 11:43
怎么没人回答呢！！！！！！！

作者: 爪子 时间: 2006-10-15 22:57
类似30楼和40楼的情况：

我的机子是XP的系统，我回放的时候计算器上会轮流显示五组数据，每组分别是datapool定义的num1,num2,sum，但是为什么test log里却不是pass呢？

这个问题不知道heather 和 jinyuhifont 解决的怎么样了？
谁知道这是为什么吗？谢谢！！！！

作者: snowwang 时间: 2007-6-26 18:17
标题: 我是个新手,啥也不会,正在用robot呢,就是录的脚本回放不了
sdlkfj2 谁有robot界面学习实例能给我一份吗?万分感激~snow1239690@sohu.com

作者: yinenlai 时间: 2007-8-22 16:36
Result = LabelVP (CompareNumeric, "Type=Text; ObjectIndex=1", "VP=Alphanumeric; Value="& sum &".")
这样就ok了

作者: chenjn312 时间: 2008-1-17 16:10
先保存一会试试看

作者: shimingcao 时间: 2008-1-18 10:48
刚开始接触这款测试软件向 LZ 学习。。。。

作者: yuxueqin 时间: 2008-6-27 11:05
标题: 请教各位高手
两台机器（比如A，B）同时访问服务器上的一个Excel文件，如果A先打开，则B以只读的方式打开，A关闭了，则B上会出现一只读/编辑对话框，我不想显示该对话框，怎么办？
如何用robot写脚本，屏蔽该对话框？
先谢谢了～～～

[ 本帖最后由 yuxueqin 于 2008-6-27 11:15 编辑 ]

作者: dx0122 时间: 2008-6-28 09:57
谢谢，看看，试一下。

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