QTP如何向QC自动提交bug

上一篇 / 下一篇  2009-09-05 23:16:34

查看( 661 ) / 评论( 0 ) / 评分( 0 / 0 )
  1. Function TDConnection(status,summary,desc,severity,deteDate,
  2. project,priority,assignTo,detectedBy)
  3. Dim TDConn
  4. Dim bug
  6. '连接QC
  7. Set TDConn = CreateObject("TDApiole80.TDConnection")
  8. TDConn.InitConnectionEx   "http://192.168.4.112:8080/qcbin/" 'QC的地址
  9. TDConn.Login "admin","111111" 'QC管理员的账号
  10. TDConn.Connect  "DEFAULT","MEG"  'DEFAULT为domain的名称，MEG为项目的名称
  12. '提交BUG到QC
  13. Set bugFactory = TDConn.BugFactory
  14. Set bug = bugFactory.AddItem(Nothing)
  16. bug.Field("BG_STATUS") = status
  17. bug.Field("BG_SUMMARY")=summary
  18. bug.Field("BG_DESCRIPTION") = desc
  19. bug.Field("BG_SEVERITY") = severity
  20. bug.Field("BG_DETECTION_DATE") = deteDate
  21. bug.Field("BG_PROJECT")=project
  22. bug.Field("BG_PRIORITY")= priority
  23. bug.Field("BG_RESPONSIBLE") = assignTo
  24. bug.Field("BG_DETECTED_BY") = detectedBy
  25. bug.Post
  26. Set bug=nothing
  27. Set TDConn =nothing
  28. End Function

收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar