Index: svn/Repository.cls.xml
===================================================================
diff -u -r1652 -r1656
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1652)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1656)
@@ -251,7 +251,7 @@
 	#dim Result As %Boolean = $extract(InternalName,1)'="%"
 	
 	if ( Result ) && ( '##class(svn.Setting).MagUnitTestUitvoeren() ) {
-		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
+		set Result = '..IsTestCode(InternalName)
 	}
 	if ( Result ) && ( '##class(svn.Setting).MagTryoutcodeUitvoeren() ) {
 		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"zTryout")
@@ -273,6 +273,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsTestCode">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %Boolean = ##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
+	if 'Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,"vhTest")
+	quit Result
+]]></Implementation>
+</Method>
+
 <Method name="IsSourceControlCode">
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>