Index: vhUnitTest/Tools/Test/VerwachteExceptie/Mock.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Test/VerwachteExceptie/Mock.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Test/VerwachteExceptie/Mock.cls.xml	(revision 2681)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Test.VerwachteExceptie.Mock">
+<Super>Tools.Mock.MockClassBase</Super>
+
+<Method name="GetResult">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetResult")
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if ..IsMethodCallVerwacht {
+		Set VerifieerExceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("Verwacht methodcall gebruikt zonder verificatie, '"_..%ClassName($$$True)_"'")
+		Do ##class(TECH.ExceptionHandler).Throw(VerifieerExceptie)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Test/VerwachteExceptie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Test/VerwachteExceptie/Test.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Test/VerwachteExceptie/Test.cls.xml	(revision 2681)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Test.VerwachteExceptie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Mock1 = ##class(vhUnitTest.Tools.Test.VerwachteExceptie.Mock).%New()
+	
+	set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
+	do Mock1.IndienMethodCall("GetResult").DanException(Exception)
+		
+	set Mock2 = ##class(vhUnitTest.Tools.Test.VerwachteExceptie.Mock).%New()
+	do Mock2.VerwachtMethodCall("GetResult").DanReturn(1).ExactAantalKeer(1)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verwacht methodcall gebruikt zonder verificatie")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.IllegalUsageException,Substrings))
+	
+	do Mock1.GetResult()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>