web测试工具对比--自动化功能测试（3）

扩展性评测，大家知道测试软件中，数据至关重要。如登陆测试中，需要验证所有用户是否可以成功登录。用手工测试工作量太大，利用测试工具脚本的强大功能，就可以减少工作量.对任意用户进行登陆测试，脚本从用户文件中读取数据，每次测试人员需要测试新的用户，只要添加用户到用户列表中，就可以自动测试新用户登陆是否成功。

1. Winrunner
设计user.txt文本格式：用户<kTab>密码<kReturn>
如： admin<kTab>jetspeed<kReturn>

脚本如下：
web_browser_invoke(IE,"http://192.168.1.42");
win_max("Browser main Window");
//打开文件
file_open("F://user.txt",FO_MODE_READ);
//读取文件数据，填写用户名，密码
while(file_getline("F://user.txt",line)==0)
{
win_mouse_click ("html_frame_2", 402, 36);
win_type("html_frame_2",line);
win_mouse_click ("html_frame_2", 566, 33);
}
file_close("F://user.txt");

备注：由于winrunner脚本为语言为c，所以注意c语言特性，对于特殊字符需要利用转义字符“/”, file_open("F://user.txt",FO_MODE_READ)，这里f:/user.txt,就需要加转义字符。
2. Robot
设计user.txt文本格式：用户 密码
如：admin jetspeed
脚本如下：

Sub Main
Dim Result As Integer
Dim Temp as String
dim FileNumber as integer
Dim iPos as integer
Dim UserName as string
Dim pw as string
'Initially Recorded: 2003-12-22 17:07:58
'Script Name: Demo

StartBrowser "http://192.168.1.42", "WindowTag=WEBBrowser"

Window SetContext, "WindowTag=WEBBrowser", ""
Browser NewPage,"HTMLTitle=Dynaweb EPS 2003企业门户服务器",""

'
FileNumber = FreeFile
//循环读取文件中数据，登陆
//自读形式 打开文件
Open "f:/user.txt" For Input As #FileNumber
Do While Not EOF(1)
// 读取数据，进行处理
Line Input #FileNumber, Temp
iPos = InStr(1,Temp," ")
//提取用户名
UserName = left(Temp,iPos-1)
//提取密码
pw = Right(Temp,len(Temp)-6)
//找到用户，密码文本框，填写用户名，密码
EditBox Click, "Name=username", "Coords=35,12"
Inputkeys UserName
EditBox Click, "Name=password", "Coords=15,8"
inputkeys pw
//提交数据，退出当前用户
PushButton Click, "Name=submit"
Browser NewPage,"HTMLTitle=Dynaweb EPS 2003企业门户服务器",""
HTMLImage Click, "Index=7", "Coords=11,7"
Loop
Close #FileNumber
//关闭Ie
Window CloseWin, "", ""

End Sub

3. quick test
设计user.txt文本格式：用户 密码
如：admin jetspeed
脚本如下：
Dim iPos
Dim UserName
Dim pw
Dim fso
Dim ts
Dim Temp

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("F:/user.txt",1)

Do While not ts.AtEndOfStream
Temp = ts.ReadLine
iPos = InStr(1,Temp," ")
UserName = left(Temp,iPos-1)
pw = Right(Temp,len(Temp)-6)

Browser("Dynaweb EPS").Page("Dynaweb EPS").WebEdit("username").Set UserName
Browser("Dynaweb EPS").Page("Dynaweb EPS").WebEdit("password").Set pw
Browser("Dynaweb EPS").Page("Dynaweb EPS").WebButton("v{ _U ").Click
Browser("Dynaweb EPS").Page("Dynaweb EPS_2").Link("恄 Q | ~ ").Click
Browser("Dynaweb EPS").Page("Dynaweb EPS_3").Sync

loop

ts.close

备注：quick test脚本
一．中文注释要引号加空格
二．Vbscript脚本语言有限制，它只是vb语言的子集
三．声明不需要添加类型，否则脚本编译不通过，差错很困难