1 %CSP.Page 0 ]]> 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="" { Quit ..ShowIndices(namespace) } ElseIf suite="" { Quit ..ShowSuites(namespace,index) } ElseIf case="" { Quit ..ShowCases(namespace,index,suite) } ElseIf method="" { Quit ..ShowMethods(namespace,index,suite,case) } Else { Quit ..ShowAsserts(namespace,index,suite,case,method) } &html<> Quit $$$OK ]]> 1 %Status Please Enter a NameSpace with NS parameter> Quit $$$OK ]]> 1 namespace %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<

Unit Test Report

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

NameSpace:

#(namespace)#

> &html<
> &html<> &html<> &html<> &html<> &html<> &html<> &html<> Set index="" For Set index=$o(^|namespace|UnitTestLog(index),-1) Quit:index="" Do . Set href="vhUnitTest.Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index . &html<> . &html<> . &html<> . Set succ=0,fail=0 . Set suite="" For Set suite=$o(^|namespace|UnitTestLog(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(^|namespace|UnitTestLog(index),5,3))#	#(fail)# Test Suite#($s(fail=1:"",1:"s"))# Failed	All Test Suites Passed

> Quit $$$OK ]]> 1 namespace,index %Status > &html<

Unit Test Report

> If $d(^|namespace|UnitTestLog(index))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> &html<

NameSpace:	#(namespace)#
LogIndex:	#(index)# ( Test finished on #($zdatetime(^|namespace|UnitTestLog(index),5,3))# )

> &html<
> &html<> &html<> &html<> &html<> &html<> Set suite="" For Set suite=$o(^|namespace|UnitTestLog(index,suite)) Quit:suite="" Do . Set result=^|namespace|UnitTestLog(index,suite) . Set href="vhUnitTest.Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite) . &html<> . If $data(^|namespace|UnitTestLog(index,suite))>1 . If &html<> . Else &html<> . If ..IsSuccess(namespace,index,suite) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" } . If +result . If &html<> . Else &html<> . &html<> &html<

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

> Quit $$$OK ]]> 1 namespace,index,suite %Status > &html<

Unit Test Report

> If $d(^|namespace|UnitTestLog(index,suite))=0 &html<
Log Entry Doesn't Exist!> Quit $$$OK &html<> &html<> &html<> &html<> &html<

NameSpace:	#(namespace)#
LogIndex:	#(index)# ( Test finished on #($zdatetime(^|namespace|UnitTestLog(index),5,3))# )
TestSuite:	#(suite)#

> &html<
> &html<> &html<> &html<> &html<> &html<> Set case="" For Set case=$o(^|namespace|UnitTestLog(index,suite,case)) Quit:case="" Do . Set result=^|namespace|UnitTestLog(index,suite,case) . Set href="vhUnitTest.Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case) . &html<> . If $data(^|namespace|UnitTestLog(index,suite,case))>1 . 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<

Test Cases	Status
#(case)#	#(case)#	#(status)#	#(status_" "_$p(result,":",2,99))#

> Quit $$$OK ]]> 1 namespace,index,suite,case %Status > &html<

Unit Test Report

> If $d(^|namespace|UnitTestLog(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 #($zdatetime(^|namespace|UnitTestLog(index),5,3))# )
TestSuite:	#(suite)#
TestCase:	#(case)#

> &html<
> &html<> &html<> &html<> &html<> // JCL - Method description toegevoegd &html<> &html<> Set method="" For Set method=$o(^|namespace|UnitTestLog(index,suite,case,method)) Quit:method="" Do . Set result=^|namespace|UnitTestLog(index,suite,case,method) . Set href="vhUnitTest.Report.cls?NS="_..EscapeURL(namespace)_"&INDEX="_index_"&SUITE="_..EscapeURL(suite)_"&CASE="_..EscapeURL(case)_"&METHOD="_..EscapeURL(method) . &html<> . If $data(^|namespace|UnitTestLog(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 namespace,index,suite,case,method %Status > &html<

Unit Test Report

> If $d(^|namespace|UnitTestLog(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 #($zdatetime(^|namespace|UnitTestLog(index),5,3))# )
TestSuite:	#(suite)#
TestCase:	#(case)#
Method:	#(method)#()

> &html<
> &html<> &html<> &html<> &html<> &html<> &html<> Set action="" For Set action=$o(^|namespace|UnitTestLog(index,suite,case,method,action)) Quit:action="" Do . Set result=^|namespace|UnitTestLog(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 namespace,index %Status 1 namespace,index,suite,case,method,action %Boolean 1 %Boolean 1