1 TECH.RegisteredObject %String %String %String %String 1 Tools.Test.Manager.Qualifiers TECH.Format.FormatAPI 1 %String %Integer %Integer %CacheString 1 %CacheString 1 %CacheString 1 %String list 1 %String 1 %String 1 %String 1 %Integer 1 %Integer 1 TECH.String 1 1 qualifiers:%String,Substring:%String="",methodPrefix:%String="" 1 1 qualifiers:%String,Substrings...:%CacheString 1 1 qualifiers:%String,userparam:%String="",Substring:%String="",methodPrefix:%String="" %Status initvalue:%CacheString 1 1 %Status 1 1 Substring:%String="" 1 0) Set Message = Message_"

Falende unit testen:

"_##class(TECH.ListUtils).ListToPieces(FalendeTesten,"
") #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")) 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) } } ]]> 1 1 qualifiers:%String,userparam:%String="",Substring:%String="",methodPrefix:%String="" %Status 1 %ListOfDataTypes %String "2.3A3.4N" 1 ClassName:%String,SubString:%String 1 %Boolean ClassName:%String 1 %Boolean 1 1 1 testcase:%String,testmethod:%String 1 testcase:%String,testmethod:%String 1 status:%String,action:%String 1 errortext:%String,action:%String Exception:TECH.Exceptions.Exception,action:%String="" 1 success:%String,action:%String,description:%String 1 message:%String 1 text:%String,level:%String 1 text:%String 1 suite:%String,case:%String,method:%String,action:%String %Boolean 1 suite:%String,case:%String,method:%String,action:%String 1 %ListOfDataTypes 1 suite:%String,case:%String,method:%String,action:%String %Boolean 1 1 %String 1 1 AantalDagen:%Integer=30 %Boolean %Boolean %String %String 1 1 1 %String 1 1 1 %String