Index: vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml
===================================================================
diff -u -r47344 -r50132
--- vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(.../Test.cls.xml)	(revision 47344)
+++ vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(.../Test.cls.xml)	(revision 50132)
@@ -95,6 +95,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test GeefPakketNaam return waarde">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	Do $$$AssertTrue(PakketService.GeefPakketNaam(9),"1014,004")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefPakketNaam smijt exceptie voor niet bestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	#dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Pakket met PakketNr '666' bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+		
+	#dim pakketnaam as %String = PakketService.GeefPakketNaam(666)
+]]></Implementation>
+</Method>
+
 <Method name="Test VerwijderPakket cleared de data uit de globals">
 <Implementation><![CDATA[
 	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()