TECH.RegisteredObject Tools.Test.Manager 1 Tools.Test.TestCase 1 TECH.ObjectUtils.impl.Differenciator 1 TestCase:Tools.Test.TestCase,Manager:Tools.Test.Manager 1 1 %Status 1 aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String %Boolean AutoQuoted:%String,Value1:%String,Value2:%String,Message:%String %Boolean aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,Object:%Base,ExpectedClassName:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:TECH.Horolog,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:TECH.Horolog,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue1:%String,aValue2:%String,aDifference:%String,aMessage:%String %Boolean (aDifference) Do manager.LogAssert(success,"AssertAlmostEquals",aMessage) Quit success ]]> aAutoQuoted:%String,List:%ListOfDataTypes,aMessage:%String="" %Status aAutoQuoted:%String,List1:%ListOfDataTypes,List2:%ListOfDataTypes,aMessage:%String %Status *"_Value2_"*" } } 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 ]]> aAutoQuoted:%String,List1:%List,List2:%List,aMessage:%String %Status aAutoQuoted:%String,aValue:%String,aMessage:%String %Boolean aAutoQuoted:%String,aValue:%String,aMessage:%String %Boolean aAutoQuoted:%String,List:%AbstractList,Value:%CacheString,aMessage:%String %Status 0 ) Set aMessage=$g(aMessage)_":" Set:'success aMessage = aMessage _" '"_Value_"' niet gevonden" Do manager.LogAssert(success,"AssertInList",aMessage) Quit success ]]> aAutoQuoted:%String,List:%AbstractList,Value:%CacheString,aMessage:%String %Status aAutoQuoted:%String,status:%String,aMessage:%String %Status "_$g(errorarray(1)) Do manager.LogAssert(success,"AssertStatusOK",aMessage) Quit success ]]> aAutoQuoted:%String,Folder:%String,aMessage:%String="" %Status aAutoQuoted:%String,Folder:%String,aMessage:%String="" %Status "_Folder_"" } else { set success = ..ReferentieRecentAangepast(Folder) if 'success set aMessage = aMessage _ " : minstens 1 bestand is niet recent aangepast "_##class(TECH.DateTime).CurrentTimeStamp() } Do manager.LogAssert(success,"AssertCorrectGemaakteBestanden",aMessage) Quit success ]]> aAutoQuoted:%String,Folder:%String,aMessage:%String="" %Status aAutoQuoted:%String,Object:%RegisteredObject,VerwachtObject:%RegisteredObject,aMessage:%String="" aAutoQuoted:%String,aValue:%CacheString,aMessage:%String %Boolean aAutoQuoted:%String,aValue:%CacheString,aMessage:%String %Boolean Path:%String 1 %Boolean 0) ) quit Result ]]> Path:%String 1 0) set itFiles = ##class(TECH.ListIterator).%New(FileList) while ( itFiles.HasNext() ) && ( RecentAangepast ) { #dim File As TECH.FileInfo = itFiles.Next() if ..TestCase.ControleBestandNodigOpRecenteAanpassing(File) { set RecentAangepast = '##class(TECH.Comparator.TimeStampComparator).%New().IsKleinerDan(File.DateModified,..TestCase.StartTime) } } quit RecentAangepast ]]> aAutoQuoted:%String,status:%String,aMessage:%String %Status aAutoQuoted:%String,file1:%String,file2:%String,aMessage:%String %Boolean message:%String 1 argline:%String,type:%String %String $l(argline) s c=$e(argline,i) d . i c="""" s q='q . i c="(" s p=p+1 . i c=")" s p=p-1 . i c=",",q=0,p=0 s args($increment(piece))=$e(argline,ptr,i-1),ptr=i+1 s args($increment(piece))=$e(argline,ptr,i-1) i type="expr" q $g(args(1)) i type="equals" q $g(args(1))_"=="_$g(args(2)) q "" ]]> aAutoQuoted:%String,aValue1:%String,Pattern:%String,aMessage:%String %Boolean 1 TECH.ObjectUtils.impl.Differenciator