QTP-Reporter的logevent应用的细节说明!

VwM5j)nIL7h"y!lA0直接进入主题..

1NwY$f2M!H6uBX
j0有想自己定义QTP的报告格式的都应该查找到这么一篇资料,就是QTP REPORTER对象解密的文章,里面说到3个关键的方法.(其实帮助是没有这个使用的说明的,但是只要编写代码的人有调试的良好习惯,在调试窗口加上Reporter对象,你就可以看到这个对象的所有方法以及属性成员了。)51Testing软件测试网Zb,n?&C#[+~0B

_\E!PA!k#~3m9C0Reporter.UnSetContext51Testing软件测试网LK:n2_;}+X(hI

"JXs&r:Py1q0Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)

Reporter.SetContext intContext

定义了函数如下:51Testing软件测试网^|k9D(cSV?'f

Public Function EnterNode(ByRef NodeName, ByRef NodeContent) 51Testing软件测试网"d
c9^*nB,CX#r
vv
 Set dicMetaDescription = CreateObject("Scripting.Dictionary") 
:p3d:^9|p4z7Pko `0 dicMetaDescription("Status") = MicDone 
czx7`$~9Z e0 dicMetaDescription("PlainTextNodeName") = NodeName 51Testing软件测试网
C4E:t o3{ p[w6s
 dicMetaDescription("StepHtmlInfo") = NodeContent 
#_ `A#boz0 intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext) 
\%i _/?HWXG0 Reporter.SetContext intContext
$r[ ?"Hr.kw7S%@s0 Set dicMetaDescription = Nothing
F'`1I!yml0End Function

'退出函数:返回上一层
ydb u%TgW7p l0Public Function ExitNode()51Testing软件测试网9j]p3t$u1da
 Reporter.UnSetContext
O7Q4i9s[ Uw5S"{%[0End Function

 51Testing软件测试网+NH#T]2T`Q.~:@

但是各位如果不细心看的话很可能就会使用出现错误,例如我们51Testing软件测试网mxm
ET)oE GIe

Y,U2~Ijw-d0EnterNode "STEP1","初始化环境"

......初始化环境的QTP代码51Testing软件测试网(u
? d:q,_!~Cf

ExitNode

Kz*o!akrLv0EnterNode "STEP2","结果校验"

......结果校验的QTP代码51Testing软件测试网k9@9z-gCTN&n

ExitNode

是不是结果就会是这样的树型机构了呢?

+STEP151Testing软件测试网k:[q5DJ~(@9U

   -QTP初始化环境自动生成的报告

+STEP2

\z8Gp8]*?x0   -QTP执行结果校验自动生成的报告51Testing软件测试网:o%[kq8_

答案是'否'..

:GavX t2Cx t0你的STEP2很可能是在STEP1里面的某个地方,而不是跟STEP1同级...51Testing软件测试网hh"hw5]fc

bO.K}e6?5P$Y{@0出现这错误的正是因为对SetContext和UnSetContext的使用不够了解.

+~dP_&p@0Q,a0SetContext表示之后增加的报告都作为指定结点下的子树进行添加.51Testing软件测试网 \E$i^\

7iy-]/omTh0而UnSetContext表示在当前的Context上返回上一层.51Testing软件测试网k_7D.NBQ$w

V,f Q^$i.Z
hV
St0所以在STEP1里,调用ExitNode时你不能保证此时的CONTEXT等于你SETCONTEXT一致,因为QTP自己生成报告时也会自己修改CONTEXT来生成不同层次的树型报告.51Testing软件测试网;~)aP{%z M

所以函数应该改动如下:(保存当前的CONTEXT,在需要返回到当前CONTEXT时调用)

.F$t*nR'Fq ^A0Public Function EnterNode(ByRef NodeName, ByRef NodeContent) 
1JA6Y+S/i$zC0 Set dicMetaDescription = CreateObject("Scripting.Dictionary") 51Testing软件测试网"[:X jW$jN
 dicMetaDescription("Status") = MicDone 51Testing软件测试网zs1YW S9n2m
 dicMetaDescription("PlainTextNodeName") = NodeName 51Testing软件测试网k"N'ueOk!|
 dicMetaDescription("StepHtmlInfo") = NodeContent 
kv9v8G.qCma
L0 EnterNode = Reporter.GetConText()51Testing软件测试网^SY9O,G1eGBO
 intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext) 
d z&o*g S,iW'Cv S0 Reporter.SetContext intContext51Testing软件测试网#H${i&hD*J
 Set dicMetaDescription = Nothing
@ b:A5v0i;V9c%q9?0End Function51Testing软件测试网4{-C'@c@V

'退出函数:返回上一层
R7]v~\ f2Ci(S0Public Function ExitNode(ByVal intContext)51Testing软件测试网}#dw_iV(Y I9?
 Reporter.SetContext intContext
,h+\+L-|3z(Y0End Function

使用如下

OZh+V:s_3e{QJ0Dim context

X0\Lc
V0context = EnterNode("STEP1","初始化环境")

......初始化环境的QTP代码51Testing软件测试网5Kzp4K3p FuY

;Qp!rklL7Gco/CX1e%_3v0ExitNode context

P6b7@5cp9NU0context = EnterNode("STEP2","结果校验")51Testing软件测试网0\2N6C$b,zkD

......结果校验的QTP代码51Testing软件测试网J,K |-e
MR'@k

#t8Y!FZBZ ha W0ExitNode context