51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1334|回复: 1
打印 上一主题 下一主题

[原创] QTP之AOM的一个bug

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-12-17 14:10:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
即使在脚本中写qtApp.Options.Run.ViewResults = True,测试完成也不会自动打开测试结果。查了很多资料,发现这确实是一个bug。一个老外和我的问题一样:
http://www.sqaforums.com/showfla ... p;an=0&page=640

从论坛拷贝的一段代码:
On Error Resume Next
error.clear
Dim qtApp
Dim qtTest
Dim qtResultsOpt
Dim fso, MyFile,TestName
Const ForReading = 1, ForWriting = 2

Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup "开始批量执行自动化测试脚本!", 3, "AutoTest", 0 + 64

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch

qtApp.Visible = True
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = True

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(".\RunList.txt", ForReading, True)
Do While MyFile.AtEndOfStream <> True
        TestName = MyFile.ReadLine

        qtApp.Open TestName, True
        Set qtTest = qtApp.Test
        qtTest.Settings.Run.OnError = "Dialog"
        
        Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
        qtResultsOpt.ResultsLocation = TestName &"\AutoRes"

        qtTest.Run qtResultsOpt, True
        
        MsgBox qtTest.LastRunResults.Status
        
        qtTest.close
Loop

MyFile.Close
qtApp.Quit

'MsgBox "自动化测试脚本执行完毕!脚本测试结果存放在各自的AutoRes目录下,请用QTP result工具查看"

Set fso = Nothing
Set qtResultsOpt = Nothing         
Set qtTest = Nothing        
Set qtApp = Nothing
Set WshShell = Nothing
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-12-20 17:40:34 | 只看该作者
顶期待版主更多的BUG
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-10 16:41 , Processed in 0.070589 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表