CSDN博客

img piaocl

web测试工具对比--自动化功能测试(3)

发表于2004/5/9 11:05:00  1601人阅读

分类: 自动化测试

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

 

 

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

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

 

 

0 0

相关博文

我的热门文章

img
取 消
img