Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r3511 -r3599
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3511)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3599)
@@ -276,6 +276,8 @@
 	if $$$Not(..IsValidName(className,Substring)) continue
 	#dim isAbstract As %Boolean =##class(TECH.ClassUtils).IsAbstract(className)
 	If ('isAbstract) {
+		#dim IsCompiledClass = ..IsCompiledClass(className)
+		Continue:($$$Not(IsCompiledClass))
 		#dim SkipTestCase As %Boolean = +$zobjclassmethod(className,"%GetParameter","SkipTestCase")
 		#dim TestCaseType As %String = $zconvert($extract($zobjclassmethod(className,"%GetParameter","Type")),"L")
 		continue:(..Qualifiers.TypesToRun'[TestCaseType)
@@ -358,6 +360,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsCompiledClass">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsCompiledClass As %Boolean = ##class(%Dictionary.CompiledClass).%ExistsId(ClassName)
+	
+	If $$$Not(IsCompiledClass) {
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Opgelet: Class '"_ClassName_"' is not a CompiledClass. This testcase is skipped."_$C(13,10))
+		Do ..LogStateBegin()
+		Do ..LogStateBegin(ClassName)
+		Do ..LogException(Exception, "RunTestCase")
+		Do ..LogStateEnd(ClassName)
+		Do ..LogStateEnd()
+	}
+	Quit IsCompiledClass
+]]></Implementation>
+</Method>
+
 <Method name="ParseQualifiers">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>