1 vhLib.Macro 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 > if IsRunning { #dim StartTijd As TECH.Horolog = ##class(svn.Setting).GetTestStartTime(..GetManager().%ClassName(1)) #dim VerstrekenTijd As %Decimal = $Replace(##class(TECH.DateTime).CurrentHorolog(),",",".") - $Replace(StartTijd,",",".") #dim Percentage As %Decimal = ((VerstrekenTijd * 100000) / ..GetTimeSpan(index)) * 100 &html<

> &html<
#("This run : " _..GeefLeesbaarTijdstip(StartTijd) _" - " _$P(Percentage,".",1) _"%")#> } else { &html< > } &html<> &html<> &html<> &html<> &html<> &html<> &html<> &html<

#(namespace)#:	#(..GetDuration(index))#
Started :	#(..GeefLeesbaarTijdstip(..GetStartTime(index)))#
Finished:	#(..GeefLeesbaarTijdstip(..GetEndTime(index)))#

> if LimitedRun { &html<

BEPERKTE RUN

> } &html<> &html<> &html<> &html<

Triggered:	#(..GeefLeesbaarTijdstip(..GetLastTriggerTime()))#
Data :	#(..GetDataMessage())#

> Do ..ToonConflicten() Do ..ToonOpmerkingen() ]]> 1 1 Er zijn subversion conflicten !> } If $D(^SYS("SourceControl","SVN","GetLatestBlockedReason")){ &html<#(^SYS("SourceControl","SVN","GetLatestBlockedReason"))#> } ]]> 1 1 > } While (OpmerkingIterator.HasNext()) { &html<

#(OpmerkingIterator.Next())#

> } If (ReportData.Remarks.Count()) { &html<> } ]]> 1 index:%String,suite:%String,case:%String 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_"
"_$tr($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 #(..GeefLeesbaarTijdstip(..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=$get(@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_" "_$tr($p(result,"~",2,99),"~",":"))#	> . . If $data(@GlobalForTimings@(index,case)) Do . . . Set Duration = @GlobalForTimings@(index,case) . . . &html< > . . . &html< > . . . &html< #(##class(TECH.Context).Instance().GeefFormatAPI().FormatNumber(Duration, 6, "."))# > . . . &html< > . . &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 #(..GeefLeesbaarTijdstip(..GetEndTime(index)))# )> &html<TestSuite: #(suite)#> &html<TestCase: #(case)#> &html<> &html<
> &html<> &html<> &html<> &html<> &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_" "_$tr($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 #(..GeefLeesbaarTijdstip(..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))#	#($tr($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_" | "_ $$$UCase($zu(110))_" " ]]> 1 1 index:%String %String 1 index:%String 1 %String 1 Tijdstip:%String 1 %String 1 Tijdstip:%String 1 %String 1 Tijdstip:%String 1 %String 1 index:%String %String 1 index:%String %String 1 %Boolean 1 1 %TimeStamp 1 %String 1 %Boolean 1 %String 1 %Boolean 1 Tijdstip:%String %String 1 1 1 Tools.Test.Manager