实验二：利用数据池.pptVIP

实验二 利用Robot进行功能测试 首先录制脚本 步骤: 1、菜单：开始?Rational SoftWare?Test Manager 2、建立数据池 在Test Manager环境中点击菜单 Tools ? Manager ? DataPools 要求：每个同学必须创建自己的数据池 一个数据池一列 第二个数据池(三列) 注意：实验报告中写自己的数据池、有自己的测试数据 点击New可以创建数据池 可选择类型String Constant 点击图一的Edit菜单，可以修改表的列和数据 可以修改数据池的列 可以修改数据池的数据 修改数据时 要求：实验报告中每个人有自己的测试数据 3、点击菜单GUI 4、启动Rational Robot 5、自动启动Robot，写一个脚本名 6、录制脚本 7、生成如下脚本 注意：每个人由于测试数据的不同，应该不同 Sub Main Dim Result As Integer Initially Recorded: 2006-05-24 13:25:31 Script Name: CblIsCbl StartApplication C:\Documents and Settings\chengbl\桌面\实验内容\实验二\Test\prjMain.exe Window SetContext, Caption=主界面, InputKeys qq EditBox Click, ObjectIndex=3, Coords=80,15 InputKeys 12 EditBox Click, ObjectIndex=2, Coords=27,6 InputKeys 12 PushButton Click, Text=确定 PushButton Click, Text=退出 End Sub 最前面插入一行 $Include sqautil.sbh“ 中间插入四行 Dim ids As LONG Dim dp_number As String ids=SQADatapoolOpen (“DataTable,false,SQA_DP_SEQUENTIAL,true) Result = SQADatapoolFetch (ids) $Include sqautil.sbh Sub Main Dim Result As Integer Dim dp_number As String Dim ids As LONG ids=SQADatapoolOpen (Cbl,false,SQA_DP_SEQUENTIAL,true) Result = SQADatapoolFetch (ids) Initially Recorded: 2006-05-24 13:25:31 Script Name: CblIsCbl StartApplication C:\Documents and Settings\chengbl\桌面\实验内容\实验二\Test\prjMain.exe Window SetContext, Caption=主界面, InputKeys qq EditBox Click, ObjectIndex=3, Coords=80,15 InputKeys 12 EditBox Click, ObjectIndex=2, Coords=27,6 InputKeys 12 PushButton Click, Text=确定 PushButton Click, Text=退出 End Sub 加上While循环，从数据池中取数据 Initially Recorded: 2006-05-24 13:25:31 Script Name: CblIsCbl while Result sqaDpEOF StartApplication C:\Documents and Settings\chengbl\桌面\实验内容\实验二\Test\prjMain.exe Window SetContext, Caption=主界面, call SQADatapoolValue (ids, 1, dp_number) InputKeys dp_number EditBox Click, ObjectIndex=3