Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r57777 -r59893
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 57777)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 59893)
@@ -54,6 +54,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TelUnitTests">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Resultaat As %Integer = 0
+	
+	//#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhUnitTest",$$$True)
+	#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhTest.Integratie",$$$True)
+	#dim KlasseIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Klasselijst)
+	
+	#dim MethodName As %String = ""
+	#dim ClassName As %String = ""
+	while KlasseIterator.HasNext() {
+		Set ClassName = KlasseIterator.Next()
+		#dim CompiledClass As %Dictionary.CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
+		if $isObject(CompiledClass) {
+			set MethodIterator = ##class(TECH.ListIterator).%New(CompiledClass.Methods)
+			while MethodIterator.HasNext() {
+				#dim Method As %Dictionary.CompiledMethod = MethodIterator.Next()
+				continue:( Method.Abstract )  
+				continue:( Method.ClassMethod )
+				if ##class(TECH.StringUtils).StartsWith(Method.Name,"Test") {
+					set Resultaat = Resultaat + 1
+				}
+			}
+		}
+	}
+	
+	w !,Resultaat
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="output">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[