Index: Tools/Test/DiffSaver.cls.xml
===================================================================
diff -u
--- Tools/Test/DiffSaver.cls.xml	(revision 0)
+++ Tools/Test/DiffSaver.cls.xml	(revision 1715)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Test.DiffSaver">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BewaarDiff">
+<FormalSpec>SvnPad:TECH.String,DiffBestandVolledigeNaam:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(DiffBestandVolledigeNaam)
+	set svnCommand = ##class(svn.Command).%New($listbuild(SvnPad))
+	set svnCommand.SubCommand="diff"
+	do svnCommand.Execute()
+	Do FileWriter.WriteStream(svnCommand.Result)
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1673 -r1715
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1673)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1715)
@@ -227,11 +227,12 @@
 	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
 	 if 'success {
 		set aMessage = aMessage _ ": inhoud van de bestanden verschillend"
+		Do ##class(Tools.Test.DiffSaver).%New().BewaarDiff(Folder, ##class(TECH.Files).AppendFile(Folder,"_Differences.diff"))
 	 } else {
 		set success = ..ReferentieRecentAangepast(Folder)	 
 		if 'success set aMessage = aMessage _ " : minstens 1 bestand is niet recente aangepast "_##class(TECH.DateTime).CurrentTimeStamp()
 	 }
-	 Do manager.LogAssert(success,"AssertReferentieBestanden",aMessage)
+	 Do manager.LogAssert(success,"AssertCorrectGemaakteBestanden",aMessage)
 	 Quit success
 ]]></Implementation>
 </Method>