Index: vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml
===================================================================
diff -u -r63406 -r71336
--- vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml	(.../Test.cls.xml)	(revision 63406)
+++ vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml	(.../Test.cls.xml)	(revision 71336)
@@ -76,6 +76,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Klant Hapro heeft Hapro logo">
+<Implementation><![CDATA[
+	#dim KlantNummer As %Integer = 26471
+	#dim Logo As %String = ##class(BL.Flow.Levering.LabelLogoBepaler).%New().GeefLogo(KlantNummer)
+	Do $$$AssertEquals(Logo,"Logo\Logo HaproX 26471.jpg")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Klant Van Hoecke heeft het standaard VH logo">
 <Implementation><![CDATA[
 	#dim KlantNummer As %Integer = 4682