Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r1211 -r1303
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1211)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1303)
@@ -13,6 +13,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>UnitTest</Default>
+</Parameter>
+
 <Property name="Debug">
 <Type>%Boolean</Type>
 </Property>
Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r1049 -r1303
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1049)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1303)
@@ -6,6 +6,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Parameter name="TestType">
+<Type>%String</Type>
+</Parameter>
+
 <Property name="LogIndex">
 <Type>%String</Type>
 </Property>
@@ -217,6 +221,8 @@
 	set isAbstract=##class(%Dictionary.ClassDefinition).%OpenId(className).Abstract
 	If ('isAbstract) {
 		#dim SkipTestCase As %Boolean = +$zobjclassmethod(className,"%GetParameter","SkipTestCase")
+		#dim TestCaseType As %String = $extract($zobjclassmethod(className,"%GetParameter","Type"))
+		continue:($get(^SYS("SourceControl","SVN","TestRunner",..#TestType))'[TestCaseType)
 		If (('SkipTestCase) || (qualifiers["force")){
 			#dim SkipTestMethods As %String = ""
 			if $$$Not(qualifiers["force") {