Index: vhUnitTest/DOM/OV/TestOrder.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 867)
+++ vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?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-02-09 14:57:23">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:34:46">
 <Class name="vhUnitTest.DOM.OV.TestOrder">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestOrder")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62131,53892.63501</TimeChanged>
+<TimeChanged>62158,59685.22643</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -28,6 +28,8 @@
 	Do $$$AssertEquals(Order.GeefOrderNr(),OrderNr,"Order nummer")
 	Do $$$AssertEquals(Order.GeefKlantNr(),1000,"Order voor testklant VH")
 	Do $$$AssertTrue('Order.BevatLangGoed(),"Het order bevat geen langgoed")
+	Do $$$AssertFalse(Order.IsASAP(),"Het order is ASAP")
+	Do $$$AssertEquals(Order.GeefIngegevenDoor(),"Christiaan Willems","Order ingegeven door")
 	
 	Set Adres = Order.GeefAfleveradres()
 	Do $$$AssertEquals(Adres.GeefNaam(),"TESTKLANT VAN HOECKE nv","Testklant VH")
@@ -36,11 +38,12 @@
 	Do $$$AssertEquals(Adres.GeefStraat(),"Europark noord 9","Straat")
 	Do $$$AssertEquals(Adres.GeefPostcode(),9100,"Postcode")
 	Do $$$AssertEquals(Adres.GeefGemeente(),"Sint-Niklaas","Gemeente")
+	Do $$$AssertEquals(Adres.GeefLandNr(),"1019","Land")
 	
-	Set OrderIterator = Order.GeefOrderLijnIterator()
+	Set OrderIterator = Order.GeefOrderlijnIterator()
 	Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld")
 	
-	Set OrderIterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderlijnType).Manueel())
+	Set OrderIterator = Order.GeefTypeOrderlijnIterator(##class(DOM.OV.enu.OrderlijnType).Manueel())
 	Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld")
 ]]></Implementation>
 </Method>
@@ -53,5 +56,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="304294642"/>
+<Checksum value="1790982475"/>
 </Export>