Index: Tools/Test/DiffSaver.cls.xml
===================================================================
diff -u -r1715 -r1718
--- Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 1715)
+++ Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 1718)
@@ -3,18 +3,43 @@
 <Class name="Tools.Test.DiffSaver">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="BewaarDiff">
-<FormalSpec>SvnPad:TECH.String,DiffBestandVolledigeNaam:TECH.String</FormalSpec>
+<Method name="SaveDiff">
+<FormalSpec>SvnPad:TECH.String,ClassName:TECH.String,MethodName:TECH.String</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	Do FileWriter.Open(DiffBestandVolledigeNaam)
+	#dim FullName As %String = ..GetDiffFullName(ClassName, MethodName)
+	Do FileWriter.Open(FullName)
 	set svnCommand = ##class(svn.Command).%New($listbuild(SvnPad))
 	set svnCommand.SubCommand="diff"
 	do svnCommand.Execute()
 	Do FileWriter.WriteStream(svnCommand.Result)
 	Do FileWriter.Close()
+	quit FullName
 ]]></Implementation>
 </Method>
+
+<Method name="GetDiffFullName">
+<FormalSpec>ClassName:TECH.String,MethodName: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))
+	} Else {
+		Set Directory = ..GetRelativePath(ClassName, MethodName)
+	}
+	Quit ##class(TECH.Files).AppendFile(Directory,"_Differences.diff")
+]]></Implementation>
+</Method>
+
+<Method name="GetRelativePath">
+<FormalSpec>ClassName:TECH.String,MethodName:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit "testresults\"_ClassName_"\"_MethodName
+]]></Implementation>
+</Method>
 </Class>