Index: vhUnitTest/DOM/VKP/impl/VerkoopbaarProduct.cls.xml
===================================================================
diff -u -r29059 -r40244
--- vhUnitTest/DOM/VKP/impl/VerkoopbaarProduct.cls.xml	(.../VerkoopbaarProduct.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/impl/VerkoopbaarProduct.cls.xml	(.../VerkoopbaarProduct.cls.xml)	(revision 40244)
@@ -3,9 +3,21 @@
 <Class name="vhUnitTest.DOM.VKP.impl.VerkoopbaarProduct">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	do ##super()
+ 	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1001)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1001)
+ 	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestVerkoopbaarProduct">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","DOM.VKP.impl.VerkoopbaarProduct")</Description>
 <Implementation><![CDATA[
 	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	#dim VerkoopbaarProduct As DOM.VKP.VerkoopbaarProduct 
@@ -32,22 +44,6 @@
 	do $$$AssertEquals(VerkoopbaarProduct.GeefVerpakkingsProduct(),"","Het juiste verpakkingsproduct werd teruggegeven")
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1001)
- 	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1001)
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>