Index: vhUnitTest/APPS/algemeen/VhintraShell/TestApplicatieGebruikService.cls.xml
===================================================================
diff -u -r29059 -r40136
--- vhUnitTest/APPS/algemeen/VhintraShell/TestApplicatieGebruikService.cls.xml	(.../TestApplicatieGebruikService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/algemeen/VhintraShell/TestApplicatieGebruikService.cls.xml	(.../TestApplicatieGebruikService.cls.xml)	(revision 40136)
@@ -24,29 +24,27 @@
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set ..Data = ##class(vhUnitTest.APPS.algemeen.VhintraShell.Data).%New()
-		Do ..Data.Remove()
-		Do ..Data.Initialize()
-		
-		Set ..Entiteit = ##class(DOM.common.dto.ProductData).%New()
-		Set ..Entiteit.ID = "64879"
-		
-		Quit $$$OK
+	Do ##super()
+	
+	Set ..Data = ##class(vhUnitTest.APPS.algemeen.VhintraShell.Data).%New()
+	Do ..Data.Remove()
+	Do ..Data.Initialize()
+	
+	Set ..Entiteit = ##class(DOM.common.dto.ProductData).%New()
+	Set ..Entiteit.ID = "64879"
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Do ..Data.Remove()
-		
-		#dim GebruikerID As %String = ..#GebruikerID
-		Do ..VerwijderFavorieteApplicaties()
-		Do ..VerwijderRecenteApplicaties()					
-				
-		Quit $$$OK
+	Do ..Data.Remove()
+	
+	#dim GebruikerID As %String = ..#GebruikerID
+	Do ..VerwijderFavorieteApplicaties()
+	Do ..VerwijderRecenteApplicaties()					
+			
+	Do ##super()
 ]]></Implementation>
 </Method>