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