Index: vhUnitTest/TECH/ExceptionHandler/Catch/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ExceptionHandler/Catch/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ExceptionHandler/Catch/Test.cls.xml	(revision 1456)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ExceptionHandler.Catch.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Catch zonder dat er een exceptie te catchen is -&gt; NoException">
+<Implementation><![CDATA[
+	#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
+	Do $$$AssertEquals(Exception.%ClassName($$$True),##class(TECH.Exceptions.NoException).%ClassName($$$True))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Catch RuntimeException -&gt; RuntimeException">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("<DIVIDE>")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.RuntimeException",Substrings))
+	#dim Value As TECH.Integer = 100/0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>