Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml
===================================================================
diff -u -r56098 -r56405
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 56098)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 56405)
@@ -33,8 +33,26 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput")
 	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Ongeldige code")
+	Do $$$AssertEquals(Antwoord.Header.OmschrijvingVoorLogging,"Ongeldige code: '"_Request.PalletCode_"'")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Exception bij Validator -&gt; niet ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = $$$DummyString
+	
+	Set PalletCodeValidator = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New()
+	Do PalletCodeValidator.IndienMethodCall("ValideerPalletCode",Request.PalletCode).DanException($$$DummyException)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,PalletCodeValidator)
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"-1000")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"DummyException")
+]]></Implementation>
+</Method>
 </Class>