1 0 %CSP.Page 3 ]]> %String %String Adapted to Van Hoecke's needs by FMA (small change: reversed the order of the test runs in the report: most recent first). 1 %Status #(..HyperEventHead())# > If namespace="" { Quit ..NoNameSpace() } ElseIf index="" { if showlast Quit ..ShowSuites(namespace,$order(@GlobalForLogging@(""),-1)) else Quit ..ShowIndices(namespace) } ElseIf suite="" { Quit ..ShowSuites(namespace,index) } ElseIf case="" { Quit ..ShowCases(namespace,index,suite,mode) } ElseIf method="" { Quit ..ShowMethods(namespace,index,suite,case) } Else { Quit ..ShowAsserts(namespace,index,suite,case,method) } &html<> Quit $$$OK ]]> 1 1 %Status Please Enter a NameSpace with NS parameter> Quit $$$OK ]]> 1 1 namespace:%String %Status ",! Write "function deleteSuite(namespace,index) {",! Write " if ( confirm('Are you sure you want to delete this log?\nNameSpace='+namespace+'\nLogIndex='+index) ) {",! Write " ",..HyperEventCall("..DeleteSuite","namespace,index",0),";",! Write " document.location.reload();",! Write " }",! Write "}",! Write "",! &html<> &html<#(..GetReportTitle())#> &html<> &html<> &html<

NameSpace:

#(namespace)#

> &html<
> &html<> &html<> &html<> &html<> &html<> &html<> &html<> #dim GlobalForLogging As %String = ..#GlobalForLogging Set index="" For Set index=$o(@GlobalForLogging@(index),-1) Quit:index="" Do . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index . &html<> . &html<> . &html<> . Set succ=0,fail=0 . Set suite="" For Set suite=$o(@GlobalForLogging@(index,suite)) Quit:suite="" Do . . If ..IsSuccess(namespace,index,suite) { Set succ=succ+1 } Else { Set fail=fail+1 } . If fail &html<> If 1 . Else &html<> . &html<> . &html<> &html<

Test Index	Test Time	Status
#(index)#	#($zdatetime($LG(@GlobalForLogging@(index),1),5,3))#	#(fail)# Test Suite#($s(fail=1:"",1:"s"))# Failed	All Test Suites Passed

> Quit $$$OK ]]> 1 1 namespace:%String,index:%Integer %Status > &html<#(..GetReportTitle())#> #dim GlobalForLogging As %String = ..#GlobalForLogging #dim IsRunning As %String = $G(^SYS("SourceControl","SVN","UnitTestInProcess",..GetManager().%ClassName(1)))>0 If $d(@GlobalForLogging@(index))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> If IsRunning { &html<> } &html<> &html<> &html<> &html<> &html<

#(namespace)#:	#(..GetDuration(index))#
Triggered:	#(..GetLastTriggerTime())#
Finished:	#(..GetEndTime(index))#
Data:	#(..GetDataVersion())#

> If $G(^SYS("SourceControl","SVN","HasConflicts")) && (^SYS("SourceControl","SVN","HasConflicts")) { &html<Er zijn subversion conflicten !
> } If $D(^SYS("SourceControl","SVN","GetLatestBlockedReason")){ &html<#(^SYS("SourceControl","SVN","GetLatestBlockedReason"))#
> } &html<> &html<> &html<> &html<> &html<> Set suite="" For Set suite=$o(@GlobalForLogging@(index,suite)) Quit:suite="" Do . Set result=@GlobalForLogging@(index,suite) . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite) . &html<> . If $data(@GlobalForLogging@(index,suite))>1 . If &html<> . Else &html<> . If ..IsSuccess(namespace,index,suite) { Set status="Passed", styleClass="goed" } Else {Set status="Failed",styleClass="fout" } . If +result . If &html<> . Else &html<> . &html<> &html<

Test Suites ( ID #(index)# )	Status
#(suite)#	#(suite)#	#(status)#	#(status_" "_$p(result,":",2,99))#

> Quit $$$OK ]]> 1 1 namespace:%String,index:%String,suite:%String,mode:%String %Status > &html<#(..GetReportTitle())#> If $d(@GlobalForLogging@(index,suite))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> &html<> &html<> &html<> &html<

NameSpace:	#(namespace)#
LogIndex:	#(index)# ( Test finished on #(..GetEndTime(index))# )
TestSuite:	#(suite)#
Toon Failed en Passed
Toon enkel Failed

> &html<
> &html<> &html<> &html<> &html<> &html<> &html<> Set case="" For Set case=$o(@GlobalForLogging@(index,suite,case)) Quit:case="" Do . Set result=@GlobalForLogging@(index,suite,case) . If $data(@GlobalForLogging@(index,suite,case))>1 . If (mode = "ToonAlles") || '..IsSuccess(namespace,index,suite,case) Do . . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case)_"&MODE="_..EscapeURL(mode) . . &html<> . . If &html<> . . Else &html<> . . If ..IsSuccess(namespace,index,suite,case) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" } . . If +result . . If &html<> . . Else &html<> . . &html<> . . &html<> &html<

Test Cases	Status	Tijd
#(case)#	#(case)#	#(status)#	#(status_" "_$p(result,":",2,99))#	#($G(^\|namespace\|LOG.UnitTestTime(index,case)))#

> Quit $$$OK ]]> 1 1 namespace:%String,index:%String,suite:%String,case:%String %Status > &html<#(..GetReportTitle())#> If $d(@GlobalForLogging@(index,suite,case))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> &html<> &html<> &html<

NameSpace:	#(namespace)#
LogIndex:	#(index)# ( Test finished on #(..GetEndTime(index))# )
TestSuite:	#(suite)#
TestCase:	#(case)#

> &html<
> &html<> &html<> &html<> &html<> // JCL - Method description toegevoegd &html<> &html<> Set method="" For Set method=$o(@GlobalForLogging@(index,suite,case,method)) Quit:method="" Do . Set result=@GlobalForLogging@(index,suite,case,method) . Set href=..#PackagePrefix_".Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case)_"&METHOD="_..EscapeURL(method) . &html<> . If $data(@GlobalForLogging@(index,suite,case,method))>1 . If &html<> . Else &html<> . If 1 . If &html<> // JCL - Method description toegevoegd . If ..IsSuccess(namespace,index,suite,case,method) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" } . If +result . If &html<> . Else &html<> . &html<> &html<

Methods	Description	Status
#(method)#()	#(method)#()	#($$MethodDescription^vhLib(case,method))#	#(status)#	#(status_" "_$p(result,":",2,99))#

> Quit $$$OK ]]> 1 1 namespace:%String,index:%String,suite:%String,case:%String,method:%String %Status > &html<> If $d(@GlobalForLogging@(index,suite,case,method))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> &html<> &html<> &html<> &html<

NameSpace:	#(namespace)#
LogIndex:	#(index)# ( Test finished on #(..GetEndTime(index))# )
TestSuite:	#(suite)#
TestCase:	#(case)#
Method:	#(method)#()

> &html<
> &html<> &html<> &html<> &html<> &html<> &html<> Set action="" For Set action=$o(@GlobalForLogging@(index,suite,case,method,action)) Quit:action="" Do . Set result=@GlobalForLogging@(index,suite,case,method,action) . &html<> . &html<> . &html<> . If ..IsSuccess(namespace,index,suite,case,method,action) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" } . &html<> . &html<> &html<

Asserts	Assert Description	Status
#($p(result,":",2))#	#($p(result,":",3,99))#	#(status)#

> Quit $$$OK ]]> 1 1 namespace:%String,index:%String %Status 1 1 namespace:%String,index:%String,suite:%String,case:%String,method:%String,action:%String %Boolean 1 %String "_..#PackagePrefix_" | "_ $zu(110)_" " ]]> 1 index:%String %String 1 index:%String %String 1 %String 1 Tijdstip:%String 1 %String 1 index:%String %String 1 %Boolean 1 1 %String 1 1 1 Tools.Test.Manager