Hello,
Here's the code:
Method isTestClass(className As %String) As %Boolean
{
if (className = .#UTCLASS) {
return 1
}
#dim c as %Dictionary.ClassDefinition
#dim status as %Status
set c = ##class(%Dictionary.ClassDefinition).%OpenId(className,,.status)
if ($$$ISERR(status)) {
throw ##class(%Exception.StatusException).CreateFromStatus(status)
}
if ('c.SuperIsDefined()) {
return 0
}
#dim children
#dim len as %Integer
#dim i as %Integer
set children = $listFromString(c.