Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/VolledigeRolNaamInvullerVisitor/VulInVolledigeRolnamen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/VolledigeRolNaamInvullerVisitor/VulInVolledigeRolnamen/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/VolledigeRolNaamInvullerVisitor/VulInVolledigeRolnamen/Test.cls.xml	(revision 63160)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor.VulInVolledigeRolnamen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestStandaardHalffabItem">
+<Implementation><![CDATA[
+	// Assign 
+	Set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("","Std1","")
+	
+	// Act 
+	Set VolledigeRolNaamInvuller = ##class(DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor).%New()
+	Do VolledigeRolNaamInvuller.VulInVolledigeRolnamen(StandaardHalffabItem)
+	
+	// Assert 
+	Do $$$AssertEquals(StandaardHalffabItem.GeefVolledigeRolNaam(),"Std1")
+]]></Implementation>
+</Method>
+
+<Method name="TestSamengesteldHalffabItem">
+<Implementation><![CDATA[
+	// Assign 
+	Set SamengesteldHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","SamHF1")
+	Set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("","Std1","")
+	Set BewerktHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("","BewerktHF","")
+	Set InbegrepenHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New("","InbegrepenHF","")
+	Do SamengesteldHalffabItem.VoegToe(StandaardHalffabItem)
+	Do SamengesteldHalffabItem.VoegToe(BewerktHalffabItem)
+	Do SamengesteldHalffabItem.VoegToe(InbegrepenHalffabItem)
+	
+	// Act 
+	Set VolledigeRolNaamInvuller = ##class(DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor).%New()
+	Do VolledigeRolNaamInvuller.VulInVolledigeRolnamen(SamengesteldHalffabItem)
+	
+	// Assert 
+	Do $$$AssertEquals(SamengesteldHalffabItem.GeefVolledigeRolNaam(), "SamHF1")
+	Do $$$AssertEquals(StandaardHalffabItem.GeefVolledigeRolNaam(), "SamHF1.Std1")
+	Do $$$AssertEquals(BewerktHalffabItem.GeefVolledigeRolNaam(), "SamHF1.BewerktHF")
+	Do $$$AssertEquals(InbegrepenHalffabItem.GeefVolledigeRolNaam(), "SamHF1.InbegrepenHF")
+]]></Implementation>
+</Method>
+
+<Method name="TestSamengesteldHalffabItemMet2Niveaus">
+<Implementation><![CDATA[
+	// Assign 
+	Set SamengesteldHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","SamHF1")
+	Set SamengesteldSubHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","SamSubHF1")
+	Set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("","Std1","")
+	Do SamengesteldHalffabItem.VoegToe(SamengesteldSubHalffabItem)
+	Do SamengesteldSubHalffabItem.VoegToe(StandaardHalffabItem)
+	
+	// Act 
+	Set VolledigeRolNaamInvuller = ##class(DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor).%New()
+	Do VolledigeRolNaamInvuller.VulInVolledigeRolnamen(SamengesteldHalffabItem)
+	
+	// Assert 
+	Do $$$AssertEquals(SamengesteldHalffabItem.GeefVolledigeRolNaam(), "SamHF1")
+	Do $$$AssertEquals(SamengesteldSubHalffabItem.GeefVolledigeRolNaam(), "SamHF1.SamSubHF1")
+	Do $$$AssertEquals(StandaardHalffabItem.GeefVolledigeRolNaam(), "SamHF1.SamSubHF1.Std1")
+]]></Implementation>
+</Method>
+
+<Method name="TestMaatwerkProductHalffabItemMet2Niveaus">
+<Implementation><![CDATA[
+	// Assign 
+	Set MaatwerkProductSubHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem).%New("","MaatwerkProductSubHF","UT_Familie","UT_Variant","")
+	Set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("","Std1","")
+	Do MaatwerkProductSubHalffabItem.VoegToe(StandaardHalffabItem)
+	
+	// Tussentijdse assert 
+	Do $$$AssertEquals(StandaardHalffabItem.GeefVolledigeRolNaam(), "SamHF1.MaatwerkProductSubHF.Std1")
+
+	Set SamengesteldHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","SamHF1")
+	Do SamengesteldHalffabItem.VoegToe(MaatwerkProductSubHalffabItem)
+	
+	// Act 
+	Set VolledigeRolNaamInvuller = ##class(DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor).%New()
+	Do VolledigeRolNaamInvuller.VulInVolledigeRolnamen(MaatwerkProductSubHalffabItem)
+	Set VolledigeRolNaamInvuller = ##class(DOM.PM.Maatwerk.Calc.HF.impl.VolledigeRolNaamInvullerVisitor).%New()
+	Do VolledigeRolNaamInvuller.VulInVolledigeRolnamen(SamengesteldHalffabItem)
+	
+	// Assert 
+	Do $$$AssertEquals(SamengesteldHalffabItem.GeefVolledigeRolNaam(), "SamHF1")
+	Do $$$AssertEquals(MaatwerkProductSubHalffabItem.GeefVolledigeRolNaam(), "SamHF1.MaatwerkProductSubHF")
+	Do $$$AssertEquals(StandaardHalffabItem.GeefVolledigeRolNaam(), "SamHF1.MaatwerkProductSubHF.Std1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>