Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r1717 -r1986
--- Tools/Test/Report.cls.xml (.../Report.cls.xml) (revision 1717)
+++ Tools/Test/Report.cls.xml (.../Report.cls.xml) (revision 1986)
@@ -278,7 +278,7 @@
#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 result=$get(@GlobalForLogging@(index,suite,case))
. Set IsSuccess = ..IsSuccess(namespace,index,suite,case)
. Set ZijnErGefaaldeTesten = ZijnErGefaaldeTesten || 'IsSuccess
. If (mode = "ToonAlles") || 'IsSuccess Do
@@ -292,7 +292,7 @@
. . Else &html<
#(status_" "_$p(result,":",2,99))# | >
. . &html<>
. . If $data(@GlobalForTimings@(index,case)) Do
- . . . &html< #(@GlobalForTimings@(index,case))# >
+ . . . &html<#($tr(@GlobalForTimings@(index,case),".",","))# >
. . &html< | >
. . &html<>
&html<>
@@ -403,19 +403,19 @@
#dim GlobalForLogging As %String = ..#GlobalForLogging
Set success=1
If $d(action) {
- Quit ''@GlobalForLogging@(index,suite,case,method,action)
+ Quit ''$get(@GlobalForLogging@(index,suite,case,method,action))
} Elseif $d(method) {
- If '@GlobalForLogging@(index,suite,case,method) Quit 0
+ If '$get(@GlobalForLogging@(index,suite,case,method)) Quit 0
Set action="" For Set action=$o(@GlobalForLogging@(index,suite,case,method,action)) Quit:action="" Do Quit:success=0
. Set success=..IsSuccess(namespace,index,suite,case,method,action)
Quit success
} Elseif $d(case) {
- If '@GlobalForLogging@(index,suite,case) Quit 0
+ If '$get(@GlobalForLogging@(index,suite,case)) Quit 0
Set method="" For Set method=$o(@GlobalForLogging@(index,suite,case,method)) Quit:method="" Do Quit:success=0
. Set success=..IsSuccess(namespace,index,suite,case,method)
Quit success
} Elseif $d(suite) {
- If '@GlobalForLogging@(index,suite) Quit 0
+ If '$get(@GlobalForLogging@(index,suite)) Quit 0
Set case="" For Set case=$o(@GlobalForLogging@(index,suite,case)) Quit:case="" Do Quit:success=0
. Set success=..IsSuccess(namespace,index,suite,case)
Quit success