vhLib.Macro 1 %RegisteredObject %String %Boolean %String %String %Integer %Integer %CacheString 1 %CacheString 1 %CacheString 1 %Boolean 0 %Boolean 0 %String list 1 %String 1 %String 1 1 qualifiers:%String,packagePrefix:%String="",methodPrefix:%String="" 1 1 qualifiers:%String,PackagePrefixes:%ListOfDataTypes 1 1 qualifiers:%String,userparam:%String="",PackagePrefix:%String="",methodPrefix:%String="" %Status 1 PackagePrefix:%String="" 1 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) } if (..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) } } ]]> 1 1 qualifiers:%String,userparam:%String="",packagePrefix:%String="",methodPrefix:%String="" %Status 1 1 1 suite:%String,class:%String,MethodPrefix:%String="",SkipTestMethods:%String="" 1 suite:%String,class:%String,MethodPrefix:%String="",SkipTestMethods:%String="" 1 ClassName:%String,MethodName:%String,MethodPrefix:%String="",SkipTestMethods:%String="" 1 testsuite:%String,testcase:%String,testmethod:%String 1 testsuite:%String,testcase:%String,testmethod:%String 1 status:%String,action:%String 1 errortext:%String,action:%String 1 Exceptie:%Exception.AbstractException,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 1 1 AantalDagen:%Integer=30 1 1 1 %String 1 1 1 %String