Index: vhUnitTest/APPS/EC/impl/OPOVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/OPOVerzendwijzeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/OPOVerzendwijzeBepaler/Test.cls.xml	(revision 67740)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.OPOVerzendwijzeBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test geldige postcodes">
+<Implementation><![CDATA[
+	Set Bepaler = ##class(APPS.EC.impl.OPOVerzendwijzeBepaler).%New()
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("2800"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("2900"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4000"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4400"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4600"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4800"),"DO3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("6100"),"DO3")
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("1000"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("2000"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("2500"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("2700"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("3000"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("3900"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4500"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("4900"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("6000"),"DO4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("6200"),"DO4")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>