51Testing软件测试论坛

标题: 测试计算器的脚本 [打印本页]

作者: zhangyunli1113 时间: 2010-5-11 18:00
标题: 测试计算器的脚本
'#############程序说明开始###########################
'被测对象：windows自带的计算器
'功能：
'1.随机产生数
'2.生成日志文件
'作者：小强

'更多视频作品请关注www.boobooke.com/bbs，小强作品
'多多在线看视频，适量点击视频左侧广告就是对我们的支持

'我的blog：http://blog.sina.com.cn/xqtesting
'############程序说明结束##################################

Option Explicit '强制声明变量
Environment.Value("RunTimes") =3' 执行测试次数

'主函数'开始

'让QTP运行时保持最小化
Dim objQTPWin
Set objQTPWin = GetObject("" , "QuickTest.Application")
objQTPWin.WindowState = "Minimized"

'获取当前日期和时间
Dim currentTime,currentDate
currentDate = Date
currentTime = Time

'写入测试报告
Dim fileSystemObj,fileSpec,logFile
Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
fileSpec ="C:\" &"计算器测试报告-小强"& ".txt"
Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
logFile.WriteLine ("##############################################")
logFile.WriteLine ("######被测对象：windows自带的计算器#########")
logFile.WriteLine ("######作者：小强 blog：http://blog.sina.com.cn/xqtesting ########")
logFile.WriteLine ("##### 测试日期：" + cstr(currentDate) + cstr(currentTime) +  " ####")
logFile.WriteLine("#####更多小强作品：www.boobooke.com/bbs ########")
logFile.WriteLine ("##############################################")
logFile.WriteLine ("")

Dim i,op1,op2,operator

For i =1 to Environment.Value("RunTimes") '要循环的次数

SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","","open"

Set op1=description.Create()
Set op2=description.Create()

op1("text").value=randomnumber(0,9)
op2("text").value=randomnumber(0,9)

Window("计算器").Activate
Window("计算器").WinButton(op1).Click

Window("计算器").Activate
operator = GetOperation()

Window("计算器").Activate
Window("计算器").WinButton(op2).Click

Window("计算器").Activate
Window("计算器").WinButton("=").Click

'获取实际结果
Dim RealValue
RealValue = Window("计算器").WinEdit("Edit").GetROProperty("text")

      Dim express '测试表达式
Select Case operator
      Case 0  express = cstr(op1("text").value) + "+" + cstr(op2("text").value) + "= ?"
      Case 1  express = cstr(op1("text").value) + "-" + cstr(op2("text").value) + "= ?"
      Case 2  express = cstr(op1("text").value) + "*" + cstr(op2("text").value) + "= ?"
      Case 3  express = cstr(op1("text").value) + "/" + cstr(op2("text").value) + "= ?"
End Select

logFile.WriteLine ("测试表达式：" + express)
logFile.WriteLine ("计算结果为：" + trim(cstr(RealValue)))
logFile.WriteLine ("" )

Window("计算器").Close
Next

'关闭文件
logFile.Close
Set logFile = Nothing

'恢复QTP窗口
objQTPWin.WindowState = "Restored"
Set objQTPWin = Nothing

'随机生成操作符
Function GetOperation()
Dim oper
oper =randomnumber.Value(0,3)
Window("计算器").Activate
Select Case oper
      Case 0  Window("计算器").WinButton("+").Click
      Case 1  Window("计算器").WinButton("-").Click
      Case 2  Window("计算器").WinButton("*").Click
      Case 3  Window("计算器").WinButton("/").Click
      Case Else
End Select
GetOperation = oper
End Function

作者: alians 时间: 2010-5-11 22:51
学习了，有时间好好研究一下，对QTP还没有到能分析脚本的地步

作者: edison1256 时间: 2010-5-12 09:10
坐下来慢慢研究，谢谢楼主的脚本

作者: davy_chen 时间: 2010-5-12 09:52
研究QTP语法尚可，但是没有太多实际测试意义
1、随机数生成范围太小，仅0-9，而且没有考虑小数、负数等情况；
2、自动执行但无自动判断，和猴子测试一样，自动化测试困难的不在自动执行，而在自动检查；

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)