Index: vhUnitTest/APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/GeleiderBevestigingSchroeven/GeefRol/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/GeleiderBevestigingSchroeven/GeefRol/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/GeleiderBevestigingSchroeven/GeefRol/Test.cls.xml	(revision 36019)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.GeleiderBevestigingSchroeven.GeefRol.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: GeleiderBevestigingSchroeven rol geeft product 1447733">
+<Implementation><![CDATA[
+	#dim TaorboxModelDummy As APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel = ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel).%New()
+	#dim GeleiderBevestigingSchroeven As APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.GeleiderBevestigingSchroeven = ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.GeleiderBevestigingSchroeven).%New(TaorboxModelDummy)
+	#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = GeleiderBevestigingSchroeven.GeefRol()
+	
+	Do $$$AssertEquals(Rol.BuilderType.ProductID, "1447733")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeleiderBevestigingSchroeven rol geeft naam &apos;Schroeven voor geleiders&apos;">
+<Implementation><![CDATA[
+	#dim TaorboxModelDummy As APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel = ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel).%New()
+	#dim GeleiderBevestigingSchroeven As APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.GeleiderBevestigingSchroeven = ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.GeleiderBevestigingSchroeven).%New(TaorboxModelDummy)
+	#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = GeleiderBevestigingSchroeven.GeefRol()
+	
+	Do $$$AssertEquals(Rol.DisplayNaam,"Schroeven voor geleiders")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>