Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r37511 -r37526
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 37511)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 37526)
@@ -379,6 +379,7 @@
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNummer)
 ]]></Implementation>
Index: vhUnitTest/DOM/VKP/enu/Klant/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/enu/Klant/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/enu/Klant/Test.cls.xml	(revision 37526)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.enu.Klant.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[	do ..Assert("DOM.VKP.enu.Klant")
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>EnuClassname:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim rs As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New("SELECT Name from %Dictionary.MethodDefinition where parent = ? and private = 0",$listbuild(EnuClassname)))
+	while rs.Next() {
+		#dim Method As %String = rs.GetData(1)
+		do $$$AssertTrue($classmethod(EnuClassname,"IsValid",$classmethod(EnuClassname,Method)),EnuClassname_":"_Method)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>