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>