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语言的子集

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

 

 

本文地址：http://com.8s8s.com/it/it37090.htm