Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1375 -r1460
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1375)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1460)
@@ -18,6 +18,7 @@
 #def1arg AssertError(%args)						..Asserter.AssertNotTrueViaMacro(1,%args)
 #def1arg AssertContains(%args)					..Asserter.AssertContainsViaMacro(##quote(%args),%args)
 #def1arg AssertCorrectGemaakteBestanden(%args)  ..Asserter.AssertCorrectGemaakteBestandenViaMacro(##quote(%args),%args)
+#def1arg AssertReferentieBestanden(%args)  		..Asserter.AssertReferentieBestandenViaMacro(##quote(%args),%args)
 #def1arg AssertObject(%args)					..Asserter.AssertObjectViaMacro(##quote(%args),%args)
 #def1arg AssertPattern(%args)					..Asserter.AssertPatternViaMacro(##quote(%args),%args)
 #def1arg AssertInList(%args)					..Asserter.AssertInListViaMacro(##quote(%args),%args)
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1213 -r1460
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1213)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1460)
@@ -178,7 +178,7 @@
 <Implementation><![CDATA[
 	 #dim manager As Tools.Test.Manager =r%Manager
 	 Set aMessage=aMessage_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
-	  Set aMessage=aMessage_" "_Folder
+	 Set aMessage=aMessage_" "_Folder
 	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
 	 if 'success {
 		set aMessage = aMessage _ ": inhoud van de bestanden verschillend"
@@ -191,6 +191,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertReferentieBestandenViaMacro">
+<FormalSpec>aAutoQuoted:%String,Folder:%String,aMessage:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 #dim manager As Tools.Test.Manager =r%Manager
+	 Set aMessage=aMessage_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set aMessage=aMessage_" "_Folder
+	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
+	 Do manager.LogAssert(success,"AssertReferentieBestanden",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertObjectViaMacro">
 <FormalSpec>aAutoQuoted:%String,Object:%RegisteredObject,VerwachtObject:%RegisteredObject,aMessage:%String=""</FormalSpec>
 <Implementation><![CDATA[