Index: vhUnitTest/APPS/PM/Kenmerk/TestMogelijkeWaarden.cls.xml
===================================================================
diff -u -r32949 -r33021
--- vhUnitTest/APPS/PM/Kenmerk/TestMogelijkeWaarden.cls.xml	(.../TestMogelijkeWaarden.cls.xml)	(revision 32949)
+++ vhUnitTest/APPS/PM/Kenmerk/TestMogelijkeWaarden.cls.xml	(.../TestMogelijkeWaarden.cls.xml)	(revision 33021)
@@ -43,10 +43,8 @@
 
 <Method name="TestGeefMogelijkeWaarden">
 <Implementation><![CDATA[
-	Set Repository = ##class(vhUnitTest.APPS.PM.Kenmerk.UnitTestMogelijkeWaardenRepository).%New()
+	Set MogelijkeWaardenRepository = ##class(vhUnitTest.APPS.PM.Kenmerk.UnitTestMogelijkeWaardenRepository).%New()
 	
-	Set RepositoryManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-	#dim MogelijkeWaardenRepository As APPS.PM.Kenmerk.MogelijkeWaardenRepository = RepositoryManager.GeefMogelijkeWaardenRepository(Repository.GeefKenmerkGroep(),Repository.GeefKenmerkNaam())
 	#dim MogelijkeWaarden As %ListOfDataTypes = MogelijkeWaardenRepository.GeefMogelijkeWaarden()
 	Do $$$AssertEquals(MogelijkeWaarden.Count(),3,"Er zijn drie mogelijke waarden gevonden.")
 	Do $$$AssertEquals(MogelijkeWaarden.GetAt(1),"Een","Eerste mogelijke waarde is correct.")
@@ -57,9 +55,10 @@
 
 <Method name="TestGeefMogelijkeWaardenMetadataDefault">
 <Implementation><![CDATA[
-	Set RepositoryManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-	#dim MogelijkeWaardenRepository As APPS.PM.Kenmerk.MogelijkeWaardenRepository = RepositoryManager.GeefMogelijkeWaardenRepository("OL","GroepSleutel")
+	// Deze test is een pure integratietest, want behalve de echte waardes test deze niks meer dan de testmethod hierboven. 
 	
+	Set MogelijkeWaardenRepository = ##class(APPS.PM.Kenmerk.impl.MetaDefinitieMogelijkeWaardenRepository).%New("OL","GroepSleutel")
+	
 	#dim MogelijkeWaarden As %ListOfDataTypes = MogelijkeWaardenRepository.GeefMogelijkeWaarden()
 	If $$$AssertTrue(MogelijkeWaarden.Count()>1,"Er zijn mogelijke waarden gevonden.") {
 		Do $$$AssertEquals(MogelijkeWaarden.GetAt(1),"GS_ACC_antislipmat")