Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r505 -r537
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 505)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 537)
@@ -196,12 +196,16 @@
 	if $L(packagePrefix),'$$$StartsWithVar(className,packagePrefix) continue
 	set isAbstract=##class(%Dictionary.ClassDefinition).%OpenId(className).Abstract
 	If ('isAbstract) {
-		#dim SkipInRegularCheck As %Boolean = $zobjclassmethod(className,"%GetParameter","SkipInRegularCheck")
-		If (('SkipInRegularCheck) || (qualifiers["force")){
+		#dim SkipTestCase As %Boolean = +$zobjclassmethod(className,"%GetParameter","SkipTestCase")
+		If (('SkipTestCase) || (qualifiers["force")){
+			#dim SkipTestMethods As %String = ""
+			if $$$Not(qualifiers["force") {
+			 	set SkipTestMethods = $classmethod(className,"%GetParameter","SkipTestMethods")
+			}
 			If (..Debug){
-				do ..RunOneTestCaseDebug(..TestSuite,className,methodPrefix)
+				do ..RunOneTestCaseDebug(..TestSuite,className,methodPrefix,SkipTestMethods)
 			} Else {
-				do ..RunOneTestCase(..TestSuite,className,methodPrefix)
+				do ..RunOneTestCase(..TestSuite,className,methodPrefix,SkipTestMethods)
 			}
 		}
 	} 
@@ -235,7 +239,7 @@
 
 <Method name="RunOneTestCaseDebug">
 <Final>1</Final>
-<FormalSpec>suite:%String,class:%String,MethodPrefix:%String=""</FormalSpec>
+<FormalSpec>suite:%String,class:%String,MethodPrefix:%String="",SkipTestMethods:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..TestCaseCount = ..TestCaseCount + 1
 	Do ..LogStateBegin(suite)
@@ -252,7 +256,7 @@
 	#dim Method As %String = $$$comMemberNext(class,$$$cCLASSmethod,"")
 	While (Method '= "")
 	{
-		If ..MustRunMethod(Method , MethodPrefix)
+		If ..MustRunMethod(class, Method , MethodPrefix, SkipTestMethods)
 	 	{
 		 	Set ..TestCount = ..TestCount + 1
 		 	Do ..LogStateBegin(suite,class,Method)
@@ -278,7 +282,7 @@
 
 <Method name="RunOneTestCase">
 <Final>1</Final>
-<FormalSpec>suite:%String,class:%String,MethodPrefix:%String=""</FormalSpec>
+<FormalSpec>suite:%String,class:%String,MethodPrefix:%String="",SkipTestMethods:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..TestCaseCount = ..TestCaseCount + 1
 	Do ..LogStateBegin(suite)
@@ -298,7 +302,7 @@
 		#dim Method As %String = $$$comMemberNext(class,$$$cCLASSmethod,"")
 		While (Method '= "")
 		{
-		 	If ..MustRunMethod(Method , MethodPrefix)
+		 	If ..MustRunMethod(class , Method , MethodPrefix, SkipTestMethods)
 		 	{
 			 	Set ..TestCount = ..TestCount + 1
 			 	Do ..LogStateBegin(suite,class,Method)
@@ -344,12 +348,18 @@
 
 <Method name="MustRunMethod">
 <Final>1</Final>
-<FormalSpec>MethodName:%String,MethodPrefix:%String=""</FormalSpec>
+<FormalSpec>ClassName:%String,MethodName:%String,MethodPrefix:%String="",SkipTestMethods:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim MustRun As %Boolean = $Extract(MethodName,1,4)="Test" 	
 	if ( MustRun ) && ( $length(MethodPrefix) ) {
 		set MustRun = ##class(TECH.StringUtils).StartsWith(MethodName,MethodPrefix)
 	}
+	if ( MustRun ) {
+		#dim Delimiter As %String = $extract(SkipTestMethods,1)
+		set MustRun = $$$Not(( SkipTestMethods _Delimiter) [ ( Delimiter_ MethodName _Delimiter ))
+	}
+		
+	
 	quit MustRun
 ]]></Implementation>
 </Method>