51Testing软件测试论坛

标题: 紧急求助:QTP中如何向TD发送定制的TestResult [打印本页]

作者: 暗冷夜空的风    时间: 2008-2-1 23:03
标题: 紧急求助:QTP中如何向TD发送定制的TestResult
将QTP与TD连上以后,可以在脚本跑完后将发现的缺陷以缺陷报告的形式直接提交到TD上去。然而,这样的缺陷报告是QTP自动生成的,很多内容是看不明白的。为此,希望可以定制提交上去的缺陷报告。QTP是支持定制缺陷报告的,然而我不知道如何定制。。。哪个高手来露一手,解解我燃眉之急?(不是简单的“通过”改“PASS”哦)
作者: 小孩    时间: 2008-2-2 13:23
以下就是QTP自带的例子
呵呵
Dim TDConnection
Set TDConnection = CreateObject("TDApiOle.TDConnection")

TDConnection.InitConnection "http://yovav/tdbin" ' URL for the DB
TDConnection.ConnectProject "TD76","bella","pino" ' Valid login information

If TDConnection.Connected Then
  MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName _
  + chr (13) +"Project " + TDConnection.ProjectName )
Else
  MsgBox("Not Connected")
End If

'Get the IBugFactory
Set BugFactory = TDConnection.BugFactory

'Add a new empty bug
Set Bug = BugFactory.AddItem (Nothing)

'fill the bug with relevant parameters
Bug.Status = "New"
Bug.Summary = "Connecting to TD"
Bug.Priority = "4-Very High" ' depends on the DB
Bug.AssignedTo = "admin" ' user that must exist in the DB's users list
Bug.DetectedBy = "admin" ' user that must exist in the DB's users list

'Post the bug to DB ( commit )
Bug.Post
作者: waiverson    时间: 2008-2-2 16:03
记得可以修改QTP 的错误报告模板
作者: 暗冷夜空的风    时间: 2008-2-2 23:03
感谢大家的积极参与,但是我想知道的是如何自己定制TestResult并自动提交Defect报告。这个报告包括缺陷描述,重要级别,发送给谁等,也就是TD中提交Defect的时候那些字段。自己定制TestResult就是为了让大家都看得明白这个测试报告的情况,然而QTP自动发出去的Report只有用过QTP的人清楚,这在一个分工明确的团队中是很不方便的。大家能回答得详细点吗?#1的例子我运行过,可是到TDConnection.ConnectProject 就会出错。你知道这是为什么吗?#2说的模板也是我想知道的,你能说清楚如何做这个模板吗?
作者: huiloo    时间: 2009-6-29 17:28
期待




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2