Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r2147 -r2302
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2147)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2302)
@@ -28,38 +28,27 @@
 	Do $$$AssertEquals(KlantData.Naam,"VAN HOECKE","De klant naam")
 	Do $$$AssertEquals(KlantData.Gemeente,"SINT-NIKLAAS","De gemeente")
 	Do $$$AssertEquals(KlantData.Land,"BE","Het land")
-	
-	Do $$$AssertEquals(KlantData.PersonalityData.ID,1,"De id is 1")
-	Do $$$AssertEquals(KlantData.PersonalityData.Code,1,"De code is 1")
-	Do $$$AssertEquals(KlantData.PersonalityData.Naam,"VAN HOECKE","De naam van de personality")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGebruikerData">
 <Implementation><![CDATA[
-	Set Gebruiker = ##class(DOM.common.Gebruiker).%New("UnitTest","UT",##class(Derde.Klant.Klant).%OpenId(4682))
-	Set Status = Gebruiker.%Save()
-	
-	Do $$$AssertTrue($$$ISOK(Status),"De gebruiker werd opgeslagen")
-	
+	Set ^vhUSER("D",9999) = "99\Unit t.\15\UT_ICT\Unit test"
+
 	Set Service = ##class(APPS.common.DataService).%New()
-	Set GebruikerData = Service.GeefGebruikerData(Gebruiker.%Id())
+	Set GebruikerData = Service.GeefGebruikerData("4682||9999")
 	
-	Do $$$AssertEquals(GebruikerData.ID,Gebruiker.%Id(),"De gebruiker id")
-	Do $$$AssertEquals(GebruikerData.Naam,"UnitTest","De naam van de gebruiker")
-	Do $$$AssertEquals(GebruikerData.Code,"UT","De code van de gebruiker")
+	Do $$$AssertEquals(GebruikerData.ID,"4682||9999","De gebruiker id")
+	Do $$$AssertEquals(GebruikerData.Naam,"Unit test","De naam van de gebruiker")
+	Do $$$AssertEquals(GebruikerData.Code,"UT_ICT","De code van de gebruiker")
 	
 	Do $$$AssertEquals(GebruikerData.KlantData.ID,4682,"De klant id")
 	Do $$$AssertEquals(GebruikerData.KlantData.Code,4682,"De klant code")
 	Do $$$AssertEquals(GebruikerData.KlantData.Naam,"VAN HOECKE","De klant naam")
 	Do $$$AssertEquals(GebruikerData.KlantData.Gemeente,"SINT-NIKLAAS","De gemeente")
 	Do $$$AssertEquals(GebruikerData.KlantData.Land,"BE","Het land")
 	
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.ID,1,"De id is 1")
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Code,1,"De code is 1")
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Naam,"VAN HOECKE","De naam van de personality")
-	
-	Do Gebruiker.%DeleteId(Gebruiker.%Id())
+	Kill ^vhUSER("D",9999)
 ]]></Implementation>
 </Method>