数据驱动在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中的运用

  • qiulingfeng
  • qiulingfeng
  • 2009年09月29日 18:31
  • 280

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

本节共有两个实例,第一个是把测试用例的数据写到EXCEL文件中,第二个是通过读取EXCEL文件中的数据,并把执行结果写入到EXCEL文件中。1.对EXCEL文件进行写操作 Option Explici...
  • softesting
  • softesting
  • 2007年09月14日 23:24
  • 1444

QTP中实现对文本文件(txt)的读写操作

在实际的项目中,很多Data都是保存在外部文件中,因此,我们就需要对外部文件的内容进行读写。常见的是文本文档(.txt),excel,数据库等。 本篇先介绍下对文本文档的读取。当然,在实际项目中...
  • yefan2222
  • yefan2222
  • 2011年12月23日 16:29
  • 3459

在QTP中,经常会遇到需要写入外部文件的地方,比如写Log什么的,这时,可以使用下面代码进行写Txt操作。

'新建文件 Dim FSO Const ForReading=1,ForWriting=2,ForAppending=8          '参数赋值(1:只读,2:只写,3:追加) Set F...
  • wangsy0202
  • wangsy0202
  • 2016年07月11日 16:37
  • 279

数据驱动在QTP中的运用(四) - 使用SQL数据库

本篇主要讲述Flight打开订单的正确性测试,通过数据库进行数据驱动测试,主要步骤和考虑思路如下:1.从数据库中随机读取一条存在的记录2.在Flight中打开本条记录3.比较数据库中的数据和软件界面上...
  • softesting
  • softesting
  • 2007年09月15日 11:50
  • 1223

数据驱动测试一:使用TestNG进行数据驱动

使用TestNG中@DataProvider注解定义当前方法中的返回对象作为测试脚本的测试数据集进行数据驱动...
  • heart_1014
  • heart_1014
  • 2016年07月24日 10:47
  • 3110

QTP实现对文本文件(txt)的读操作

QTP中实现对文本文件(txt)的读写操作        在实际的项目中,很多Data都是保存在外部文件中,因此,我们就需要对外部文件的内容进行读写。常见的是文本文档(.t...
  • fetch001
  • fetch001
  • 2014年08月13日 15:51
  • 1207

QTP脚本中使用正则表达式,匹配字符串方法

第一、首先正则表达式使用如下对象。   1、RegExp 这是使用正则表达式匹配模式的主要对象了   属性:   Pattern:一个字符串,用来定义正则表达式。   Igno...
  • wangsy0202
  • wangsy0202
  • 2016年07月06日 16:01
  • 1161

QTP连接oracle并操作数据库的方法

QTP连接oracle并操作数据库的方法这里以oracle 9i为例子,其他的数据库连接方法是相通的。 a.首先要在本机建议ODBC数据源,这个属于基本操作,这里不讲,跳过;   QTP连接orac...
  • wangsy0202
  • wangsy0202
  • 2016年06月16日 19:28
  • 1186

QTP脚本编写技巧 - 从函数中返回多个值的方法

relevantcodes.com的《Passing Multiple Values from Functions》这篇文章介绍了如何从函数(Function)中返回多个值:http://releva...
  • Testing_is_believing
  • Testing_is_believing
  • 2010年03月22日 09:20
  • 4745
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据驱动在QTP中的运用(一) - 自定义TXT文件
举报原因:
原因补充:

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