Index: vhUnitTest/DOM/LEV/TestToelevering.cls.xml
===================================================================
diff -u -r995 -r1074
--- vhUnitTest/DOM/LEV/TestToelevering.cls.xml	(.../TestToelevering.cls.xml)	(revision 995)
+++ vhUnitTest/DOM/LEV/TestToelevering.cls.xml	(.../TestToelevering.cls.xml)	(revision 1074)
@@ -1,16 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 11:49:23">
+<Export generator="Cache" version="9">
 <Class name="vhUnitTest.DOM.LEV.TestToelevering">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.LEV.TestToelevering")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62174,42649.807569</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ^KO2("F",1000,123346) = ""
 	Set ^KO1(123346,"F") = "1000\"
 	
 	Set ^KOD(1000,"F",123346,0)=103
@@ -21,6 +21,7 @@
 	Set ^KOD(1000,"F",123346,101)="703100 \614305\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\298104\101\\\\\\\\\\\\\\\\\\1\\"
 	Set ^KOD(1000,"F",123346,102)="703100 \620939\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\110\78.75\KF0\\\\E1\EUR\\1\62171\\298104\102\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
  	
+ 	Set ^KTO2(6332,298104)=""
  	Set ^KTO1(298104)="6332\"
  	
 	Set ^KTO(6332,298104,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
@@ -35,6 +36,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^KO2("F",1000,123346)
+	Kill ^KO1(123346,"F")
+	Kill ^KOD(1000,"F",123346)
+	
+	Kill ^KTO2(6332,298104)
+	Kill ^KTO1(298104)
+	Kill ^KTO(6332,298104)
+	
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="TestToelevering">
 <Implementation><![CDATA[
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
@@ -92,7 +109,7 @@
 	Do $$$AssertTrue($IsObject(ToeleveringLijn),"De toeleveringlijn werd gevonden")
 	Do $$$AssertTrue($IsObject(ToeleveringLijn.GeefOrderLijn()),"De bijhorende orderlijn werd gevonden")
 	Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNr(),100,"Het unieke lijn nummer")
-	Do $$$AssertFalse(ToeleveringLijn.HeeftFysiekStockProbleem(),"Het product heeft een fysiek stockprobleem")
+	Do $$$AssertTrue(ToeleveringLijn.HeeftFysiekStockProbleem(),"Het product heeft een fysiek stockprobleem")
 ]]></Implementation>
 </Method>
 
@@ -105,5 +122,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1107028922"/>
 </Export>