Index: vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml
===================================================================
diff -u -r29059 -r38756
--- vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 38756)
@@ -10,11 +10,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefKlantPartijID">
-<Implementation><![CDATA[	do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantPartijID(1000),"K||1000")
-]]></Implementation>
-</Method>
-
 <Method name="TestGeefLeverancierNummerVoorPartijID">
 <Implementation><![CDATA[
 	#dim PartijID As %String = ##class(DOM.AKP.enu.Leverancier).Blum()
@@ -37,6 +32,21 @@
 	do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefLeverancierIndexKLE(PartijID),"BLUMJULIUSGMBH 5005")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefKlantPartijID geeft K1000 voor klantnummer 1000">
+<Implementation><![CDATA[	do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantPartijID(1000),"K||1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsKlantPartijID is false voor klantnummer 1000">
+<Implementation><![CDATA[	do $$$AssertFalse(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().IsKlantPartijID(1000))
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsKlantPartijID is true voor klantnummer K1000">
+<Implementation><![CDATA[	do $$$AssertTrue(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().IsKlantPartijID("K||1000"))
+]]></Implementation>
+</Method>
 </Class>