数据驱动在QTP中的运用(一) - 自定义TXT文件

原创 2007年09月14日 22:28:00
以下是对Mercury Interactive公司的Flight飞机订票系统的Login模块进行数据驱动测试的VBScript脚本实例,
通过对自定义TXT文件进行读写操作。
Option Explicit
 
Dim fso
‘数据驱动文件路径,数据文件,当前行
Dim ddFilePath, ddFile, ddCurrLine
‘执行日志文件路径,日志文件
Dim logFilePath, logFile
 
ddFilePath = Environment.Value("TestDir") & "/ddFile.txt"
logFilePath = Environment.Value("TestDir") & "/logFile.txt"
 
'====写入测试用例数据到数据驱动文件中===='
Set fso = CreateObject("Scripting.FileSystemObject")
'OpenTextFile第三个参数如果是False表示如果文件一定要存在.
Set ddFile = fso.OpenTextFile(ddFilePath, 2, True)
 
ddFile.WriteLine "ad,Mercury,Agent name must be at least 4 characters long."
ddFile.WriteLine "admin,merc,Incorrect password. Please try again"
ddFile.WriteLine "admin,Mercury,Flight Reservations"
ddFile.Close
 
 
'====写入测试结果到数据日志文件中===='
Set logFile = fso.OpenTextFile(logFilePath, 2, True)
logFile.WriteLine "************************************************************"
logFile.WriteLine "************************************************************"
logFile.WriteLine "*************************测试日志***************************"
logFile.WriteLine "******************用例名称:用户登陆**************************"
logFile.WriteLine "**********************作者:Holly zhao*************************"
logFile.WriteLine "********************执行时间:" & Date & "*********************"
logFile.WriteLine "************************测试开始:**************************"
 
'从ddFile中读取测试数据
Set ddFile = fso.OpenTextFile(ddFilePath, 1, True)
 
 
While NOT ddFile.AtEndOfLine
       ddCurrLine = Split(ddFile.ReadLine, ",")
 
       SystemUtil.CloseProcessByName "Flight4a.exe"
       SystemUtil.Run Environment.Value("ProductDir") & "/samples/flight/app/flight4a.exe"
 
       Dialog("Login").WinEdit("Agent Name:").Set ddCurrLine(0)
       Dialog("Login").WinEdit("Password:").Set ddCurrLine (1)
       Dialog("Login").WinButton("OK").Click
 
       If Dialog("Login").Dialog("Flight Reservations").Exist Then
If Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text") = ddCurrLine(2) Then
logFile.WriteLine "测试成功!"
              Else
                     logFile.WriteLine "测试失败!"
              End If
              Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
              Dialog("Login").WinButton("Cancel").Click
       Else
              If Window("Flight Reservation").Exist Then
                     logFile.WriteLine "测试成功!"   
End If    
              Window("Flight Reservation").Close   
       End If    
Wend
 
logFile.WriteLine "==========================测试结束==================================="
logFile.WriteLine "*********************************************************************"

相关文章推荐

QTP写文本到txt文件的Sub过程Sub TestResultLog

输出格式化的日志信息到记事本,涉及:1. 获取自动化测试脚本的当前路径;2. 字符串组织;3. FSO对象;4. 日期、时间格式规范...
  • otianye
  • otianye
  • 2015年10月30日 14:31
  • 397

【软件测试自动化-QTP系列讲座 51】== 自定义消息通知系统 ==

作者:zzxxbb112时间:2012/2/1 版权所有,侵权必究。出处:http://blog.csdn.net/zzxxbb112     前两天IQuickTest已经发布了一款名叫QTP no...

自定义的数据文件结构类

  • 2006年01月13日 09:51
  • 42KB
  • 下载

QTP中自定义的,常用函数

  • 2011年03月11日 15:37
  • 2KB
  • 下载

自定义QTP执行日志

在平时使用QTP进行自动化项目时,最常见的应该是QTP+QC的组合了,QC对QTP脚本的执行与管理带来了极大的便利,但是随着脚本的不断增加,对于QC执行结果的维护与查看就变得并不是得心应手。 这种情...

QTP中使用自定义vbs类

发现直接在resource中加载含有calss的vbs文件,QTP无法识别类,导致脚本中无法new类对象。 解决办法有四种:   1、直接在action脚本中定义类,然后action...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据驱动在QTP中的运用(一) - 自定义TXT文件
举报原因:
原因补充:

(最多只允许输入30个字)