Index: vhUnitTest/DOM/LEV/TestToeleveringAPI.cls.xml
===================================================================
diff -u -r946 -r1013
--- vhUnitTest/DOM/LEV/TestToeleveringAPI.cls.xml	(.../TestToeleveringAPI.cls.xml)	(revision 946)
+++ vhUnitTest/DOM/LEV/TestToeleveringAPI.cls.xml	(.../TestToeleveringAPI.cls.xml)	(revision 1013)
@@ -1,23 +1,24 @@
 <?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-16 08:24:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 07:49:35">
 <Class name="vhUnitTest.DOM.LEV.TestToeleveringAPI">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.LEV.TestToeleveringAPI")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62166,30336.953462</TimeChanged>
+<TimeChanged>62199,28191.974793</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestAPI">
 <Implementation><![CDATA[
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Do $$$AssertTrue(ToeleveringAPI.%Extends("DOM.LEV.ToeleveringAPI"),"Het object is van het juiste type")
 	
-	Set LeverancierToeleveringIt = ToeleveringAPI.GeefLeverancierToeleveringIt(6332)
-	Do $$$AssertTrue($IsObject(LeverancierToeleveringIt),"De iterator is een object")
-	Do $$$AssertTrue(LeverancierToeleveringIt.%Extends("TECH.Iterator"),"De iterator implementeert de interface")
+	Set Leverancier = ToeleveringAPI.GeefLeverancierHalux()
+	Do $$$AssertTrue($IsObject(Leverancier),"De iterator is een object")
+	Set ToeleveringIterator = Leverancier.GeefToeleveringIterator()
+	Do $$$AssertTrue(ToeleveringIterator.%Extends("TECH.Iterator"),"De iterator implementeert de interface")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3183525985"/>
+<Checksum value="114875545"/>
 </Export>