Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u -r782 -r838
--- Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 782)
+++ Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 838)
@@ -28,6 +28,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalKeerOpgeroepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachtAantalKeerOpgeroepen">
+<Type>%Integer</Type>
+<InitialExpression>-1</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefMethodNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..MethodNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteParameters">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwachteParameters
+]]></Implementation>
+</Method>
+
 <Method name="ZetMethodNaam">
 <FormalSpec>MethodNaam:%String</FormalSpec>
 <Implementation><![CDATA[	Set ..MethodNaam = MethodNaam
@@ -64,15 +88,52 @@
 <Description>
 Verwacht dat deze method call AantalKeer wordt opgeroepen.</Description>
 <FormalSpec>AantalKeer:%Integer</FormalSpec>
-<Implementation><![CDATA[	// TODO
+<Implementation><![CDATA[	Set ..VerwachtAantalKeerOpgeroepen = AantalKeer
 ]]></Implementation>
 </Method>
 
+<Method name="IsOpgeroepen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalKeerOpgeroepen > 0
+]]></Implementation>
+</Method>
+
+<Method name="IsExactAantalKeerOpgeroepen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalKeerOpgeroepen = ..VerwachtAantalKeerOpgeroepen
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalKeerOpgeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalKeerOpgeroepen
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachtAantalKeerOpgeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwachtAantalKeerOpgeroepen
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwacht">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsVerwacht
+]]></Implementation>
+</Method>
+
+<Method name="IsAantalKeerVerwacht">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwachtAantalKeerOpgeroepen >= 0
+]]></Implementation>
+</Method>
+
 <Method name="MockCall">
 <Description>
 Mag enkel aangeroepen worden indien IsMatch(MethodNaam,Parameters) = true</Description>
 <FormalSpec><![CDATA[MethodNaam:%String,Parameters:%ListOfObjects,&HeeftReturnWaarde:%Boolean,&ReturnWaarde:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	Set ..AantalKeerOpgeroepen = ..AantalKeerOpgeroepen + 1
 	Set HeeftReturnWaarde = ..HeeftReturnWaarde
 	If ..HeeftReturnWaarde {
 		Set ReturnWaarde = ..ReturnWaarde