Index: vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml
===================================================================
diff -u -r29059 -r40282
--- vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 40282)
@@ -8,19 +8,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="objTestData">
-<Type>vhUnitTest.DOM.PM.TestData</Type>
-<Private>1</Private>
-</Property>
-
 <Parameter name="Type">
 <Type>%String</Type>
 <Default>I</Default>
 </Parameter>
 
+<Property name="objTestData">
+<Type>vhUnitTest.DOM.PM.TestData</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+ 	Do ##super()
+ 	
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
  	
  	do ..objTestData.CreeerTestData(1000,1099)
@@ -30,13 +31,10 @@
 	do $$$AssertEquals($data(^KPR(1000,0)),1,"Producten aangemaakt")
 	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
 	Do ..ControleerProductHeeftGeenKenmerkenSets(1000,)
-	
-	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ..objTestData.VerwijderTestData(1000,1099)
 	do $$$AssertEquals($data(^KPR(1000,0)),0,"Producten verwijderd")
@@ -46,7 +44,7 @@
 	set blnMetaDefOpgekuisd = ..objTestData.IsMetaDefMooiOpgekuisd()
 	do $$$AssertEquals(blnMetaDefOpgekuisd,1,"Sorteringswaarde opgekuisd in metadefs")
 	
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>