Index: vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml
===================================================================
diff -u -r58872 -r58880
--- vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58872)
+++ vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58880)
@@ -12,6 +12,14 @@
 <Default>cat</Default>
 </Parameter>
 
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 98")
+	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 97")
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Flow VHoss">
 <Implementation><![CDATA[
 		#dim KlantID As %String = "K||1000"
@@ -63,23 +71,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVhosServiceCheckVhossOpMeerdereLocatiesFalse">
+<Method name="Test VhosService Check Geen Vhoss Op Meerdere Locaties">
 <Implementation><![CDATA[
 	Set VhossOpMeerdereLocaties = ##class(APPS.VisiDot.impl.VHossService).CheckVhossOpMeerdereLocaties()
 	Do $$$AssertEquals(VhossOpMeerdereLocaties, $$$False)
 ]]></Implementation>
 </Method>
 
-<Method name="TestVhosServiceCheckVhossOpMeerdereLocatiesTrue">
+<Method name="Test VhosService Check Wel Vhoss Op Meerdere Locaties">
 <Implementation><![CDATA[
-	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('TT000000',4,98,97,98,98,'0000-00-00-00.00.00.000000',2)")	
-	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('TT000000',4,98,98,98,98,'0000-00-00-00.00.00.000000',2)")	
+	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('O1000000',4,98,97,98,98,'0000-00-00-00.00.00.000000',2)")	
+	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('O1000000',4,98,98,98,98,'0000-00-00-00.00.00.000000',2)")	
 	
-	Set VhossWelOpMeerdereLocaties = ##class(APPS.VisiDot.impl.VHossService).CheckVhossOpMeerdereLocaties("TT")
+	Set VhossWelOpMeerdereLocaties = ##class(APPS.VisiDot.impl.VHossService).CheckVhossOpMeerdereLocaties("O1")
 	Do $$$AssertEquals(VhossWelOpMeerdereLocaties, $$$True)
-
-	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 98")
-	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 97")
 ]]></Implementation>
 </Method>
 </Class>