Index: vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml
===================================================================
diff -u -r29059 -r31593
--- vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml	(.../TestHalffabRepository.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml	(.../TestHalffabRepository.cls.xml)	(revision 31593)
@@ -18,9 +18,16 @@
 	Do SpecInfo.Save()
 	
 	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
-	#dim GevondenSpec As TECH.String = HalffabRepository.GeefSpecTag("UTFamilie1","UTVariant","UTTag")
+	Set HalffabRepositoryInput = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput).%New()
+	Set HalffabRepositoryInput.Familie = "UTFamilie1"
+	Set HalffabRepositoryInput.Variant = "UTVariant"
+	Set HalffabRepositoryInput.BerekenTag = "UTTag"
+	#dim GevondenSpec As TECH.String = HalffabRepository.GeefSpecificatie(HalffabRepositoryInput)
 	Do $$$AssertEquals(GevondenSpec.%ClassName(1),##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabSpec).%ClassName(1),"De gevonden spec is gelijk")
-	Set GevondenSpec = HalffabRepository.GeefSpecDatum("UTFamilie2","UTVariant")
+	Set HalffabRepositoryInput = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput).%New()
+	Set HalffabRepositoryInput.Familie = "UTFamilie2"
+	Set HalffabRepositoryInput.Variant = "UTVariant"
+	Set GevondenSpec = HalffabRepository.GeefSpecificatie(HalffabRepositoryInput)
 	Do $$$AssertEquals(GevondenSpec.%ClassName(1),##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabSpec).%ClassName(1),"De gevonden spec is gelijk")
 
 	Do ..Cleanup()