Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml
===================================================================
diff -u -r56080 -r56098
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 56080)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 56098)
@@ -3,106 +3,34 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.ValideerPalletcode.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: TBXxxxxx -&gt; ok">
+<Method name="Test: Geldige PalletCode -&gt; ok ">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
 	Set Request.PalletCode = "TBX12345"
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	Set PalletCodeValidator = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New()
+	Do PalletCodeValidator.IndienMethodCall("ValideerPalletCode",Request.PalletCode).DanReturn($$$True)
 	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,PalletCodeValidator)
 	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: KADxxxxx -&gt; ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "KAD12345"
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
 	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: DIVxxxxx -&gt; ok">
+<Method name="Test: Ongeldige PalletCode -&gt; niet ok">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "DIV12345"
+	Set Request.PalletCode = $$$DummyString
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	Set PalletCodeValidator = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New()
+	Do PalletCodeValidator.IndienMethodCall("ValideerPalletCode",Request.PalletCode).DanReturn($$$False)
 	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,PalletCodeValidator)
 	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: TBPxxxxx -&gt; ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "TBP12345"
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
 	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
 	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: SFSxxxxx -&gt; ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "SFS12345"
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
-	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: VHOSSxxx -&gt; ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "Vhoss345"
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
-	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: tbxxxxxx (lowercase) -&gt; ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = "tbx12345"
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
-	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-]]></Implementation>
-</Method>
-
-<Method name="Test: willekeurige code -&gt; niet ok">
-<Implementation><![CDATA[
-	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
-	Set Request.PalletCode = $$$DummyString
-	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
-	
-	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
-	
 	Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput")
 	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Ongeldige code")
 ]]></Implementation>