Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1554 -r1673
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1554)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1673)
@@ -24,6 +24,7 @@
 #def1arg AssertObject(%args)					..Asserter.AssertObjectViaMacro(##quote(%args),%args)
 #def1arg AssertPattern(%args)					..Asserter.AssertPatternViaMacro(##quote(%args),%args)
 #def1arg AssertInList(%args)					..Asserter.AssertInListViaMacro(##quote(%args),%args)
+#def1arg AssertNotInList(%args)					..Asserter.AssertNotInListViaMacro(##quote(%args),%args)
  
 #define UnitTestUtils					##class(vhUnitTest.Utils)
 
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1629 -r1673
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1629)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1673)
@@ -189,6 +189,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertNotInListViaMacro">
+<FormalSpec>aAutoQuoted:%String,List:%AbstractList,Value:%CacheString,aMessage:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim manager As Tools.Test.Manager = r%Manager
+	#dim success As %Boolean = $$$Not(List.Find(Value))
+	Set aMessage=$g(aMessage)_":"
+	Set:'success aMessage = aMessage _" '"_Value_"' is gevonden in lijst op positie: "_List.Find(Value)
+	Do manager.LogAssert(success,"AssertInList",aMessage)
+ 	Quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertStatusOKViaMacro">
 <FormalSpec>aAutoQuoted:%String,status:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>