Index: vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml
===================================================================
diff -u -r32433 -r32445
--- vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(.../TestOrigineelKlantAdresNr.cls.xml)	(revision 32433)
+++ vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(.../TestOrigineelKlantAdresNr.cls.xml)	(revision 32445)
@@ -74,12 +74,10 @@
 	Do AfleverAdres.ZetLandNr("1019")
 	Do AfleverAdres.ZetTaal("N")
 	
-	try{
-		#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
-	} catch {
-		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()	
-		do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.InvalidInputException","De exceptie is van het juiste type")
-	}
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen overeenkomstig leveradres gevonden voor "_"KVIKAS 24315"_" "_AfleverAdres.ToString())
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+
+	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
 ]]></Implementation>
 </Method>
 
@@ -97,12 +95,10 @@
 	Do AfleverAdres.ZetLandNr("1019")
 	Do AfleverAdres.ZetTaal("N")
 	
-	try {
-		#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("Verkeerde ID",AfleverAdres)
-	} catch {
-		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()	
-		do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.InvalidInputException","De exceptie is van het juiste type")
-	}
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen overeenkomstig leveradres gevonden voor "_"Verkeerde ID"_" "_AfleverAdres.ToString())
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+
+	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("Verkeerde ID",AfleverAdres)
 ]]></Implementation>
 </Method>
 </Class>