Index: Tools/Test/Asserter.cls.xml =================================================================== diff -u -r1554 -r1629 --- Tools/Test/Asserter.cls.xml (.../Asserter.cls.xml) (revision 1554) +++ Tools/Test/Asserter.cls.xml (.../Asserter.cls.xml) (revision 1629) @@ -127,11 +127,15 @@ } } Set manager=r%Manager - if List1.Count() '= List2.Count() { 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,",") + } + Do manager.LogAssert(success,"AssertEqualsList",aMessage) Quit success ]]> @@ -294,6 +298,7 @@ set svnCommand.File = Path do svnCommand.Execute() set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results) + #dim Result As %Boolean = ( itResults.HasNext() || ( svnCommand.Errors.Count() > 0) ) quit Result ]]>