TECH.RegisteredObject Tools.Test.Manager 1 Tools.Test.TestCase 1 TestCase:Tools.Test.TestCase,Manager:Tools.Test.Manager 1 1 %Status 1 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,aValue1:%String,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,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,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 aAutoQuoted:%String,Object:%RegisteredObject,VerwachtObject:%RegisteredObject,aMessage:%String="" "_ $method(WaardePropertyVerwachtObject,"Count") ) } else { set itList1 = ##class(TECH.ListIterator).%New(WaardePropertyObject) set itList2 = ##class(TECH.ListIterator).%New(WaardePropertyVerwachtObject) while itList1.HasNext() && success { #dim Value1 As %String = itList1.Next() #dim Value2 As %String = itList2.Next() set success = ( Value1 = Value2) if 'success do Verschillen.Insert("Item "_itList1.Key()_" verschillend : *"_Value1 _ "* <> *"_Value2_"*") } } } elseif WaardePropertyObject '= WaardePropertyVerwachtObject { do Verschillen.Insert(Property_" : "_WaardePropertyObject _" <> "_ WaardePropertyVerwachtObject ) } } if Verschillen.Count() { set aMessage = aMessage _ ##class(TECH.ListUtils).ListToPieces(Verschillen,$$$CRLF) set success = 0 } Do manager.LogAssert(success,"AssertObject",aMessage) Quit success ]]> 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