51Testing软件测试论坛

标题: 求助：关于Robot脚本学习资料 [打印本页]

作者: archonwang 时间: 2004-11-29 15:06
标题: 求助：关于Robot脚本学习资料
不知道有人有么？
我只有帮助可以看。最好能有一个完整的代码或者手册学习。

作者: cat_zhang 时间: 2004-11-29 17:33
首页可以下载robot手册！

至于你说的完整的代码？是例子么

作者: sesamehch 时间: 2004-11-29 17:45
你去沙龙里看看，应该有你想要的吧。

作者: archonwang 时间: 2004-11-29 21:50
谢谢，手册已经找到了，不过没有Code？例子里有么？

作者: sesamehch 时间: 2004-11-30 09:13
标题: Robot使用交流里面有简单的例子啊！
Robot测试案例：
1、计算器功能测试：展示GUI脚本录制，数据池（DATAPOOL）应用
2、 C/S架构系统压力测试：展示VU脚本录制，Suite设置使用
3、数据库并发测试：展示手工编写测试代码，进行数据库的并发测试

一、计算器功能测试
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 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
(环境：windows2000专业版、rational2003)

注：SQADatapoolOpen("jsq")，jsq为数据池（DATAPOOL）名称，需要在testmanager中手工创建。数据池的创建可以参照51testing论坛中pcl2004_27写的帖子，他写的非常详细。

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

作者: sesamehch 时间: 2004-11-30 09:17
标题: 给多一个例子你！
Sub Main
Dim Result As Integer

dim Res

'Initially Recorded: 2004-11-11  10:45:03
'Script Name: 前缀1

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

Window SetContext, "Caption=未定标题 - 记事本", ""
InputKeys "hello"
MenuSelect "文件(F)->保存(S)"

Window SetContext, "Caption=另存为", ""
ComboEditBox Left_Drag, "ObjectIndex=3", "Coords=5,6,-25,3"
InputKeys "hello"
PushButton Click, "Text=保存(S)"

Window SetContext, "Caption=hello.txt - 记事本", ""
MenuSelect "文件(F)->退出(X)"

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

Result = FileVP (Exists, "Name=C:\Documents and Settings\ZR\桌面\hello0.txt", "VP=File Existence")

If Result<>0 Then
      Res="不等于0"
   Else
      Res="等于0"
End If

Open "C:\result.txt" For append As #1
Write #1, Res

Close #1

End Sub

作者: xalee 时间: 2004-11-30 09:21
不错啊，有注释的话就更好了。

作者: archonwang 时间: 2004-11-30 10:17
好的,接收了,谢谢~~

作者: 冷月 时间: 2004-12-3 13:08
如果有人将robot里的帮助翻译一下就好了，里面的好东东还是很多的可惜我不行呵呵

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