Index: Tools/Mock/MockClassBase.cls.xml =================================================================== diff -u -r1473 -r1759 --- Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 1473) +++ Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 1759) @@ -78,13 +78,16 @@ #dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters ) #dim MethodCallStub As Tools.Mock.MethodCallStub #dim MatchGevonden As %Boolean = 0 + #Dim Mismatches As %String = "" + Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs ) While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) { set MethodCallStub = MethodCallStubsIterator.Next() Set MatchGevonden = MethodCallStub.IsMatch( MethodNaam, ActueleParameterWaarden ) + Set Mismatches = Mismatches _ MethodCallStub.GeefMismatches() } - if 'MatchGevonden set MethodCallStub = ##class(Tools.Mock.MethodCallError).%New() + if 'MatchGevonden set MethodCallStub = ##class(Tools.Mock.MethodCallError).%New(Mismatches) quit MethodCallStub ]]>