Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r1463 -r1485
--- Tools/Test/Manager.cls.xml (.../Manager.cls.xml) (revision 1463)
+++ Tools/Test/Manager.cls.xml (.../Manager.cls.xml) (revision 1485)
@@ -160,11 +160,15 @@
Set Case = $o(..TheLog(..TestSuite,Case))
}
If (FalendeTesten.Count()>0) Set Message = Message_"
Falende unit testen:
"_##class(TECH.ListUtils).ListToPieces(FalendeTesten,"
")
- Do SendMiniMailForced^vhLib.Mail(From,MailTo,..#PackagePrefix_..LogIndex_" Failed on ["_Server_" => "_Namespace_"]",Message,0,1)
+ #dim Onderwerp As %String = ..#PackagePrefix_..LogIndex_" Failed on ["_Server_" => "_Namespace_"]"
+ Do ##class(vhLib.Logger).%New().Warning(Onderwerp,Message)
+ Do SendMiniMailForced^vhLib.Mail(From,MailTo,Onderwerp,Message,0,1)
}
if (..Qualifiers.MailOnSucces && ..IsSuccess(..TestSuite)){
Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString(..#PackagePrefix_".SendToWhenSucceeded"))
- Do SendMiniMailForced^vhLib.Mail(From,MailTo,..#PackagePrefix_..LogIndex_" Succeeded on ["_Server_" => "_Namespace_"]",Message,0)
+ Set Onderwerp = ..#PackagePrefix_..LogIndex_" Succeeded on ["_Server_" => "_Namespace_"]"
+ Do ##class(vhLib.Logger).%New().Warning(Onderwerp,Message)
+ Do SendMiniMailForced^vhLib.Mail(From,MailTo,Onderwerp,Message,0)
}
}
]]>
Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r1314 -r1485
--- Tools/Test/Report.cls.xml (.../Report.cls.xml) (revision 1314)
+++ Tools/Test/Report.cls.xml (.../Report.cls.xml) (revision 1485)
@@ -62,17 +62,29 @@
bg-color:red;
}
+
>
- If namespace="" { Quit ..NoNameSpace() }
- ElseIf index="" {
- if showlast Quit ..ShowSuites(namespace,$order(@GlobalForLogging@(""),-1))
- else Quit ..ShowIndices(namespace)
-
-
+ 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)
+ }
}
- ElseIf suite="" { Quit ..ShowSuites(namespace,index) }
- ElseIf case="" { Quit ..ShowCases(namespace,index,suite,mode) }
+ 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<