Index: vhUnitTest/Tools/Test/VerwachteInnerExceptie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Test/VerwachteInnerExceptie/Test.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Test/VerwachteInnerExceptie/Test.cls.xml	(revision 2359)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Test.VerwachteInnerExceptie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Valideer onbestaande VerwachteInnerExceptie">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Omschrijving InvalidUserInputException")
+	#dim VerwachteInnerExceptie As Tools.Test.VerwachteInnerExceptie = ##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings)
+	#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Omschrijving InvalidInputException")
+
+	Do $$$AssertFalse(VerwachteInnerExceptie.Valideer(Exceptie, ""))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Valideer bestaande VerwachteInnerExceptie">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Omschrijving InvalidUserInputException")
+	#dim VerwachteInnerExceptie As Tools.Test.VerwachteInnerExceptie = ##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings)
+	#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Omschrijving InvalidInputException")
+
+	Do Exceptie.VoegToeInnerExceptie(##class(TECH.Exceptions.InvalidUserInputException).%New("Omschrijving InvalidUserInputException"))
+	
+	Do $$$AssertTrue(VerwachteInnerExceptie.Valideer(Exceptie, ""))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Valideer bestaande geneste VerwachteInnerExceptie">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Omschrijving IllegalUsageException")
+	#dim VerwachteInnerExceptie As Tools.Test.VerwachteInnerExceptie = ##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.IllegalUsageException", Substrings)
+	#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Omschrijving InvalidInputException")
+	#dim InnerExceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New("Omschrijving InvalidUserInputException")
+
+	Do InnerExceptie.VoegToeInnerExceptie(##class(TECH.Exceptions.IllegalUsageException).%New("Omschrijving IllegalUsageException"))
+	Do Exceptie.VoegToeInnerExceptie(InnerExceptie)
+	
+	Do $$$AssertTrue(VerwachteInnerExceptie.Valideer(Exceptie, ""))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>