Index: Tools/Test/VerwachteExceptie.cls.xml
===================================================================
diff -u
--- Tools/Test/VerwachteExceptie.cls.xml	(revision 0)
+++ Tools/Test/VerwachteExceptie.cls.xml	(revision 715)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Test.VerwachteExceptie">
+<Super>%RegisteredObject</Super>
+
+<Property name="Exception">
+<Type>%String</Type>
+</Property>
+
+<Property name="OmschrijvingSubStrings">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Exception:%String="",OmschrijvingSubStrings:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Exception = Exception
+	set ..OmschrijvingSubStrings = $get(OmschrijvingSubStrings,##class(%ListOfDataTypes).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Test/ExceptieValidator/GeldigeExceptieBepaler.cls.xml
===================================================================
diff -u
--- Tools/Test/ExceptieValidator/GeldigeExceptieBepaler.cls.xml	(revision 0)
+++ Tools/Test/ExceptieValidator/GeldigeExceptieBepaler.cls.xml	(revision 715)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Test.ExceptieValidator.GeldigeExceptieBepaler">
+<Super>TECH.Bezwaren.impl.BezwarenBepaler</Super>
+
+<Property name="Exceptie">
+<Type>TECH.Exceptions.Exception</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachteExceptie">
+<Type>Tools.Test.VerwachteExceptie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Exceptie:TECH.Exceptions.Exception,VerwachteExceptie:Tools.Test.VerwachteExceptie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Exceptie = Exceptie
+	set ..VerwachteExceptie = VerwachteExceptie
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelBezwaren">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..ControleerExceptie()
+	do ..ControleerOpgegevenSubStrings()
+	do ..ControleerLegeSubStrings()
+	do ..ControleerOmschrijvingSubStrings()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerExceptie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$Not(..Exceptie.%ClassName(1) = ..VerwachteExceptie.Exceptie) {
+		do ..VoegToeBezwaar(..Exceptie.%ClassName(1) _" <> "_..VerwachteExceptie.Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerOmschrijvingSubStrings">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Omschrijving As %String = ..Exceptie.GeefOmschrijving()
+	set itOmschrijvingSubStrings = ##class(TECH.ListIterator).%New(..VerwachteExceptie.OmschrijvingSubStrings)
+	while (itOmschrijvingSubStrings.HasNext()) {
+		#dim Substring As %String = itOmschrijvingSubStrings.Next()
+		if $$$Not( Omschrijving [ Substring) {
+			do ..VoegToeBezwaar("Omschrijving verschillend : "_Omschrijving _" '[ "_Substring)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerOpgegevenSubStrings">
+<Private>1</Private>
+<Implementation><![CDATA[
+	if '..VerwachteExceptie.OmschrijvingSubStrings.Size {
+		do ..VoegToeBezwaar("Geen enkele omschrijving substring is opgegeven")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLegeSubStrings">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LegeStringsGevonden As %Boolean = 0
+	set itOmschrijvingSubStrings = ##class(TECH.ListIterator).%New(..VerwachteExceptie.OmschrijvingSubStrings)	
+	while (itOmschrijvingSubStrings.HasNext() && $$$Not(LegeStringsGevonden) ) {
+		set LegeStringsGevonden = ( itOmschrijvingSubStrings.Next() = "" )
+	}
+	if LegeStringsGevonden {
+		do ..VoegToeBezwaar("Er werden lege substrings opgegeven")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r707 -r715
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 707)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 715)
@@ -21,6 +21,10 @@
 <Type>Tools.Test.Manager</Type>
 </Property>
 
+<Property name="VerwachteExceptie">
+<Type>Tools.Test.VerwachteExceptie</Type>
+</Property>
+
 <Property name="UitgeschakeldeEvents">
 <Type>%ArrayOfDataTypes</Type>
 </Property>
@@ -72,6 +76,7 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	set ..VerwachteExceptie = ""
 	do ..SetRuntimeContext()
 	;do ..StoreVariabelenInMemory()
 	Quit $$$OK
@@ -90,6 +95,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsExceptieVerwacht">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $isObject(..VerwachteExceptie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteExceptie">
+<ReturnType>Tools.Test.VerwachteExceptie</ReturnType>
+<Implementation><![CDATA[	quit ..VerwachteExceptie
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerwachteException">
+<FormalSpec>Exceptie:Tools.Test.VerwachteExceptie</FormalSpec>
+<Implementation><![CDATA[	set ..VerwachteExceptie = Exceptie
+]]></Implementation>
+</Method>
+
 <Method name="ResetRuntimeContext">
 <Final>1</Final>
 <Private>1</Private>