Index: vhUnitTest/Report.cls.xml =================================================================== diff -u --- vhUnitTest/Report.cls.xml (revision 0) +++ vhUnitTest/Report.cls.xml (revision 1171) @@ -0,0 +1,287 @@ + + + +1 +%CSP.Page +3 +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 IndexTest TimeStatus 
#(index)##($zdatetime(^|namespace|UnitTestLog(index),5,3))##(fail)# Test Suite#($s(fail=1:"",1:"s"))# FailedAll 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 SuitesStatus
#(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 CasesStatus
#(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<
MethodsDescriptionStatus
#(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<
AssertsAssert DescriptionStatus
#($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 + + + + Index: TECH/SourceCodeUtils.cls.xml =================================================================== diff -u -r1074 -r1171 --- TECH/SourceCodeUtils.cls.xml (.../SourceCodeUtils.cls.xml) (revision 1074) +++ TECH/SourceCodeUtils.cls.xml (.../SourceCodeUtils.cls.xml) (revision 1171) @@ -62,7 +62,7 @@ set Type = ..Type(InternalName) if Type = "class" { set Class = ##class(%Dictionary.ClassDefinition).%OpenId(..StripExtension(InternalName)) - if $isObject(Class) Set IsSystemCode = Class.System + if $isObject(Class) Set IsSystemCode = ( Class.System = 1 ) } }