Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r1951 -r2007
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1951)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2007)
@@ -14,6 +14,10 @@
 <Type>%String</Type>
 </Parameter>
 
+<Parameter name="PackagePrefix">
+<Type>%String</Type>
+</Parameter>
+
 <Property name="LogIndex">
 <Type>%String</Type>
 </Property>
@@ -70,36 +74,38 @@
 <Private>1</Private>
 </Property>
 
-<Parameter name="PackagePrefix">
-<Type>%String</Type>
-</Parameter>
-
 <Method name="RunTest">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>qualifiers:%String,packagePrefix:%String="",methodPrefix:%String=""</FormalSpec>
+<FormalSpec>qualifiers:%String,Substring:%String="",methodPrefix:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	do ##class(svn.Setting).ZetIsUnitTestBezig(1,..%ClassName(1))
- 	Do ..RunTestSuite(.qualifiers,,packagePrefix,methodPrefix)
+ 	Do ..RunTestSuite(.qualifiers,,Substring,methodPrefix)
  	do ##class(svn.Setting).ZetIsUnitTestBezig(0,..%ClassName(1))
 ]]></Implementation>
 </Method>
 
 <Method name="RunTests">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>qualifiers:%String,PackagePrefixes:%ListOfDataTypes</FormalSpec>
+<FormalSpec>qualifiers:%String,Substrings...:%CacheString</FormalSpec>
 <Implementation><![CDATA[
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..#TestUser)
 	Do ##class(vhLib.OldSchool).InitVars()
+	
 	Set manager = ..%New()
-	do manager.SetTestSuite("Test "_PackagePrefixes.Count())
-	set itPackagePrefix = ##class(TECH.ListIterator).%New(.PackagePrefixes)
-	while itPackagePrefix.HasNext() {
-		#dim PackagePrefix As %String = itPackagePrefix.Next()
-		write !,"do ##class("_manager.%ClassName(1)_").RunTest("""","""_PackagePrefix_""")"
-		do manager.RunSuite(qualifiers,,PackagePrefix)
+	if $IsObject(Substrings(1)) {
+		do manager.SetTestSuite("Test "_Substrings(1).Count())
+		set itSubstring = ##class(TECH.ListIterator).%New(Substrings(1))
+	} else {
+		set itSubstring = ##class(TECH.ArrayOneDimIterator).%New(.Substrings)
+		do manager.SetTestSuite("Test "_Substrings)
 	}
+	while itSubstring.HasNext() {
+		#dim Substring As %String = itSubstring.Next()
+		write !,"do ##class("_manager.%ClassName(1)_").RunTest("""","""_Substring_""")"
+		do manager.RunSuite(qualifiers,,Substring)
+	}
  	do manager.DumpFails()
  	do manager.MailResult()
 
@@ -110,14 +116,14 @@
 <Method name="RunTestSuite">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>qualifiers:%String,userparam:%String="",PackagePrefix:%String="",methodPrefix:%String=""</FormalSpec>
+<FormalSpec>qualifiers:%String,userparam:%String="",Substring:%String="",methodPrefix:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..#TestUser)
  	Do ##class(vhLib.OldSchool).InitVars()
  	Set manager=..%New()
- 	do manager.SetTestSuite(PackagePrefix)
- 	do manager.RunSuite(qualifiers,userparam,PackagePrefix,methodPrefix)
+ 	do manager.SetTestSuite(Substring)
+ 	do manager.RunSuite(qualifiers,userparam,Substring,methodPrefix)
  	do manager.DumpFails()
  	do manager.MailResult()
  	
@@ -139,10 +145,10 @@
 
 <Method name="SetTestSuite">
 <Final>1</Final>
-<FormalSpec>PackagePrefix:%String=""</FormalSpec>
+<FormalSpec>Substring:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..TestSuite = ..#PackagePrefix
- 	if $length(PackagePrefix) set ..TestSuite = PackagePrefix
+ 	if $length(Substring) set ..TestSuite = Substring
 ]]></Implementation>
 </Method>
 
@@ -201,12 +207,12 @@
 
 <Method name="RunSuite">
 <Final>1</Final>
-<FormalSpec>qualifiers:%String,userparam:%String="",packagePrefix:%String="",methodPrefix:%String=""</FormalSpec>
+<FormalSpec>qualifiers:%String,userparam:%String="",Substring:%String="",methodPrefix:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- if '##class(TECH.StringUtils).StartsWith(packagePrefix,..#PackagePrefix) {
- 	set:$L(packagePrefix) packagePrefix = ..#PackagePrefix_"."_packagePrefix
- }
+ //if '##class(TECH.StringUtils).StartsWith(Substring,..#PackagePrefix) {
+ //	set:$L(Substring) Substring = ..#PackagePrefix_"."_Substring
+ //}
  
  Do ..ParseQualifiers(.qualifiers,"/typestorun=/nodebug/display=errors/load/run/recursive/quiet/mailonerror=0/mailonsucces=0/force/duration=0")
  set ..Qualifiers.TypesToRun=qualifiers("typestorun")
@@ -223,7 +229,7 @@
  $$$QuitOnError(classQuery.Execute(..#PackagePrefix_".TestCase"))
  while (classQuery.Next() ) {
 	#dim className=classQuery.Data("Name")
-	if $L(packagePrefix),'$$$StartsWithVar(className,packagePrefix) continue
+	if $L(Substring),className'[Substring continue
 	#dim isAbstract As %Boolean =##class(TECH.ClassUtils).IsAbstract(className)
 	If ('isAbstract) {
 		#dim SkipTestCase As %Boolean = +$zobjclassmethod(className,"%GetParameter","SkipTestCase")
@@ -355,7 +361,7 @@
 
 <Method name="LogException">
 <FormalSpec>Exception:TECH.Exceptions.Exception,action:%String=""</FormalSpec>
-<Implementation><![CDATA[	Do ..LogErrorMessage(Exception.GeefOmschrijving(),action)
+<Implementation><![CDATA[	Do ..LogErrorMessage(Exception.GeefOmschrijving()_" "_Exception.GeefErrorInformatie(),action)
 ]]></Implementation>
 </Method>