Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1925 -r2122
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1925)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 2122)
@@ -288,11 +288,12 @@
 	 #dim manager As Tools.Test.Manager =r%Manager
 	 Set aMessage=aMessage_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
 	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
+	 #dim SuiteID As TECH.String = ..Manager.GeefTestType()_"_"_..Manager.GetSuiteID()
 	 if 'success {
 		set FileSaver = ##class(Tools.Test.DiffSaver).%New()
-		do FileSaver.SaveDiff(Folder, ..TestCase.%ClassName(1), ..Manager.GetCurrentMethod())
+		do FileSaver.SaveDiff(Folder, ..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), SuiteID)
 		
-		set aMessage = aMessage _ ": inhoud van de bestanden verschillend : "_"<a href="_FileSaver.GetDiffFullName(..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), $$$False)_">"_Folder_"</a>"
+		set aMessage = aMessage _ ": inhoud van de bestanden verschillend : "_"<a href="_FileSaver.GetDiffFullName(..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), SuiteID, $$$False)_">"_Folder_"</a>"
 		
 	 } else {
 		set success = ..ReferentieRecentAangepast(Folder)	 
Index: Tools/Test/DiffSaver.cls.xml
===================================================================
diff -u -r1718 -r2122
--- Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 1718)
+++ Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 2122)
@@ -4,11 +4,11 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="SaveDiff">
-<FormalSpec>SvnPad:TECH.String,ClassName:TECH.String,MethodName:TECH.String</FormalSpec>
+<FormalSpec>SvnPad:TECH.String,ClassName:TECH.String,MethodName:TECH.String,SuiteID:TECH.String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	#dim FullName As %String = ..GetDiffFullName(ClassName, MethodName)
+	#dim FullName As %String = ..GetDiffFullName(ClassName, MethodName, SuiteID)
 	Do FileWriter.Open(FullName)
 	set svnCommand = ##class(svn.Command).%New($listbuild(SvnPad))
 	set svnCommand.SubCommand="diff"
@@ -20,26 +20,31 @@
 </Method>
 
 <Method name="GetDiffFullName">
-<FormalSpec>ClassName:TECH.String,MethodName:TECH.String,FullPath:%Boolean=$$$True</FormalSpec>
+<FormalSpec>ClassName:TECH.String,MethodName:TECH.String,SuiteID:TECH.String,FullPath:%Boolean=$$$True</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim Directory As TECH.String = ""
 	If FullPath {
-		Set Directory = ##class(TECH.Files).AppendSubPath(##class(TECH.CSP.CSPApplicatie).Instance().Directory(), ..GetRelativePath(ClassName, MethodName))
+		Set Directory = ##class(TECH.Files).AppendSubPath(##class(TECH.CSP.CSPApplicatie).Instance().Directory(), ..GetRelativePath(SuiteID, ClassName, MethodName))
 	} Else {
-		Set Directory = ..GetRelativePath(ClassName, MethodName)
+		Set Directory = ..GetRelativePath(SuiteID, ClassName, MethodName)
 	}
 	Quit ##class(TECH.Files).AppendFile(Directory,"_Differences.diff")
 ]]></Implementation>
 </Method>
 
 <Method name="GetRelativePath">
-<FormalSpec>ClassName:TECH.String,MethodName:TECH.String</FormalSpec>
+<FormalSpec>SuiteID:TECH.String,ClassName:TECH.String,MethodName:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit "testresults\"_ClassName_"\"_MethodName
+<Implementation><![CDATA[	Quit "testresults\"_SuiteID_"\"_ClassName_"\"_MethodName
 ]]></Implementation>
 </Method>
+
+<Method name="RemoveAllDiffs">
+<Implementation><![CDATA[	Do ##class(%File).RemoveDirectoryTree(##class(TECH.Files).AppendSubPath(##class(TECH.CSP.CSPApplicatie).Instance().Directory(), "testresults"))
+]]></Implementation>
+</Method>
 </Class>