Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1744 -r1798
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1744)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1798)
@@ -15,6 +15,7 @@
 
 #def1arg AssertAlmostEquals(%args)      		..Asserter.AssertAlmostEqualsViaMacro(##quote(%args),%args)
 #def1arg AssertException(%args)         		..AssertExceptionViaMacro(##quote(%args),%args)
+#def1arg AssertEmptyList(%args)         		..Asserter.AssertEmptyListViaMacro(##quote(%args),%args)
 #def1arg AssertEqualsList(%args)        		..Asserter.AssertEqualsListViaMacro(##quote(%args),%args)
 #def1arg AssertEqualsListbuild(%args)       	..Asserter.AssertEqualsListbuildViaMacro(##quote(%args),%args)
 #def1arg AssertFalse(%args)						..Asserter.AssertNotTrueViaMacro(##quote(%args),%args) 
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1758 -r1798
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1758)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1798)
@@ -129,6 +129,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertEmptyListViaMacro">
+<FormalSpec>aAutoQuoted:%String,List:%ListOfDataTypes,aMessage:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim manager As Tools.Test.Manager = r%Manager
+	#dim success As %Boolean = ( List.Count() = 0 )
+ 	if 'success {
+	 	set aMessage = $g(aMessage)_":"_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List,", ")
+ 	}
+ 	do manager.LogAssert(success,"AssertEmptyList",aMessage)
+ 	quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertEqualsListViaMacro">
 <FormalSpec>aAutoQuoted:%String,List1:%ListOfDataTypes,List2:%ListOfDataTypes,aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -151,8 +165,8 @@
 	 	set aMessage = aMessage _ "# Items differs "_List1.Count()_"="_List2.Count()
  	}
  	if 'success {
-	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List1,",")
-	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List2,",")
+	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List1,", ")
+	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List2,", ")
  	}
  	
  	Do manager.LogAssert(success,"AssertEqualsList",aMessage)