Index: vhUnitTest/BL/Legacy/EWBON.cls.xml
===================================================================
diff -u -r29059 -r40256
--- vhUnitTest/BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 40256)
@@ -1,10 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.BL.Legacy.EWBON">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.Legacy.EWBON")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ..VerwijderORDW()
+	do ..MaakORDW()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ..VerwijderORDW()
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestSplitsenORDW">
 <Implementation><![CDATA[
 	#dim NieuweBonIDs As list of %String = ##class(BL.Legacy.EWBON).SplitsPerOrder(335196)
@@ -24,8 +37,7 @@
 	Do $$$AssertTrue($Data(^ORDW("D",NieuweBonIDs.GetAt(2),"D",158696)))
 	
 	Set Iterator = ##class(TECH.ListIterator).%New(NieuweBonIDs)
-	While (Iterator.HasNext())
-	{
+	While (Iterator.HasNext()) {
 		#dim BonID As %String = Iterator.Next()
 		Kill ^ORDW("IK",6125,BonID)
 		Kill ^ORDW("D",BonID)
@@ -37,15 +49,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ..VerwijderORDW()
-	do ..MaakORDW()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="MaakORDW">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -73,14 +76,6 @@
 <Implementation><![CDATA[	Kill ^ORDW("D",335196)
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ..VerwijderORDW()
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>