1 0 %CSP.Page 3 ]]> %String %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)) set index = $order(@GlobalForLogging@(""),-1) Set suite = $o(@GlobalForLogging@(index,suite)) } Else { Quit ..ShowIndices(namespace) } } If suite="" { Quit ..ShowSuites(namespace,index) } ElseIf case="" { Quit ..ShowCases(namespace,index,suite,mode,showlast) } 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 0 &html<> &html<> &html<> If IsRunning { &html<> } &html<> &html<> &html<> &html<

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

> Do ..ToonConflicten() ]]> 1 1 Er zijn subversion conflicten !> } If $D(^SYS("SourceControl","SVN","GetLatestBlockedReason")){ &html<#(^SYS("SourceControl","SVN","GetLatestBlockedReason"))#> } ]]> 1 index:%String,suite:%String,case 1 > &html<#(..GetReportTitle())#> If ((($d(@GlobalForLogging@(index)) = 0)) && ('$G(suite) || ($G(suite) && ($d(@GlobalForLogging@(index,suite)) = 0))) && ('$G(suite) || $G(case) || ($G(suite) && $G(case) && ($d(@GlobalForLogging@(index,suite,case)) = 0)))) { &html<
Log Entry Doesn't Exist!> Quit $$$OK } ]]> 1 1 namespace:%String,index:%Integer %Status > &html<> &html<Test Suites ( ID #(index)# )> &html<Status> &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<#(suite)#> . Else &html<#(suite)#> . If ..IsSuccess(namespace,index,suite) { Set status="Passed", styleClass="goed" } Else {Set status="Failed",styleClass="fout" } . If +result . If &html<#(status)#> . Else &html<#(status_"
"_$p(result,":",2,99))#> . &html<> &html<> Quit $$$OK ]]> 1 1 namespace:%String,index:%String,suite:%String,mode:%String,showlast:%String %Status > &html<NameSpace: #(namespace)#> &html<LogIndex: #(index)# ( Test finished on #(..GetEndTime(index))# )> &html<TestSuite: #(suite)#> &html<> } &html<> &html<> &html<> &html<

Toon Failed en Passed

Toon enkel Failed

> &html<> &html<> &html<> &html<> &html<> &html<> #dim ZijnErGefaaldeTesten As %Boolean = 0 Set case="" For Set case=$o(@GlobalForLogging@(index,suite,case)) Quit:case="" Do . Set result=@GlobalForLogging@(index,suite,case) . Set IsSuccess = ..IsSuccess(namespace,index,suite,case) . Set ZijnErGefaaldeTesten = ZijnErGefaaldeTesten || 'IsSuccess . If (mode = "ToonAlles") || 'IsSuccess 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))#	> . . If $data(@GlobalForTimings@(index,case)) Do . . . &html< #(@GlobalForTimings@(index,case))# > . . &html<

> If ZijnErGefaaldeTesten { &html<> }Else{ &html<> } Quit $$$OK ]]> 1 1 namespace:%String,index:%String,suite:%String,case:%String %Status > &html<NameSpace: #(namespace)#> &html<LogIndex: #(index)# ( Test finished on #(..GetEndTime(index))# )> &html<TestSuite: #(suite)#> &html<TestCase: #(case)#> &html<> &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<NameSpace: #(namespace)#> &html<LogIndex: #(index)# ( Test finished on #(..GetEndTime(index))# )> &html<TestSuite: #(suite)#> &html<TestCase: #(case)#> &html<Method: #(method)#()> &html<> &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)_" | DATA "_..GetDataVersion()_" " ]]> 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