Index: vhUnitTest/APPS/common/Print/impl/PrintAPI/Test.cls.xml
===================================================================
diff -u -r29059 -r41597
--- vhUnitTest/APPS/common/Print/impl/PrintAPI/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/Print/impl/PrintAPI/Test.cls.xml	(.../Test.cls.xml)	(revision 41597)
@@ -98,6 +98,16 @@
 	kill ^TECH("PRINT","Toepassing")
 ]]></Implementation>
 </Method>
+
+<Method name="TestGeefBartenderPrinterVoorDevice">
+<Implementation><![CDATA[
+	
+	#Dim Devicenaam as %String = "EenprinterdevicenameopFOP"
+	#dim Printer As APPS.common.Print.LabelPrinter = ..PrintAPI.GeefBartenderPrinterVoorDevice(Devicenaam)
+	
+	Do $$$AssertEquals(Printer.GeefDevice(),Devicenaam)
+]]></Implementation>
+</Method>
 </Class>