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

脚本如下：

SubMain

   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

'scrīpt 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

脚本如下：

DimiPos
DimUserName
Dimpw
Dimfso
Dimts
DimTemp
 
  Setfso =CreateObject("scrīpting.FileSystemObject")
  Setts = fso.OpenTextFile("F:\user.txt",1)
  
  DoWhilenotts.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脚本

一．中文注释要引号加空格

二．Vbscrīpt脚本语言有限制，它只是vb语言的子集

三．声明不需要添加类型，否则脚本编译不通过，差错很困难