Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r538 -r550
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 538)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 550)
@@ -71,7 +71,6 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ..SetRuntimeContext()
-	
 	;do ..StoreVariabelenInMemory()
 	Quit $$$OK
 ]]></Implementation>
@@ -82,7 +81,6 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ..ResetRuntimeContext()
-
 	;do ..CheckVariabelenInMemory()
 	do ..CheckOpenExceptions()
 	do ..CheckOpenTransactions()
@@ -245,6 +243,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertEqualsListViaMacro">
+<FormalSpec>aAutoQuoted:%String,List1:%ListOfDataTypes,List2:%ListOfDataTypes,aMessage:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim success As %Boolean = ( List1.Count() = List2.Count() )
+	if success {
+		set itList1 = ##class(TECH.ListIterator).%New(List1)
+		set itList2 = ##class(TECH.ListIterator).%New(List2)
+		while itList1.HasNext() && success {
+			set success = ( itList1.Next() = itList2.Next())
+		}
+	}
+ 	Set manager=r%Manager
+ 	Set aMessage=$g(aMessage)_":"
+ 		
+ 	if List1.Count() '= List2.Count() {
+	 	set aMessage = aMessage _ "# Items differs "_List1.Count()_"="_List2.Count()
+ 	} else {
+	 	set aMessage = aMessage _ ##class(TECH.ListUtils).ListToPieces(List1,",")_" = "_ ##class(TECH.ListUtils).ListToPieces(List2,",")
+ 	}
+ 	Do manager.LogAssert(success,"AssertEqualsList",aMessage)
+ 	Quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertExceptionViaMacro">
 <FormalSpec>aAutoQuoted:%String,Method:%String,ExceptionClass:%String,ExceptionMessage:%String="",aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r537 -r550
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 537)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 550)
@@ -1,5 +1,6 @@
 #def1arg AssertAlmostEquals(%args)      ..AssertAlmostEqualsViaMacro(##quote(%args),%args)
 #def1arg AssertException(%args)         ..AssertExceptionViaMacro(##quote(%args),%args)
+#def1arg AssertEqualsList(%args)        ..AssertEqualsListViaMacro(##quote(%args),%args)
 #def1arg AssertFalse(%args)				..AssertNotTrueViaMacro(##quote(%args),%args) 
 #def1arg AssertError(%args)				..AssertNotTrueViaMacro(1,%args)
 #def1arg AssertContains(%args)			..AssertContainsViaMacro(##quote(%args),%args)