Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt =================================================================== diff -u -r55508 -r55519 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt (.../WS.Halux.AAP.GebruikerService.txt) (revision 55508) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt (.../WS.Halux.AAP.GebruikerService.txt) (revision 55519) @@ -36,7 +36,12 @@ - + + + + + + Index: WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml =================================================================== diff -u -r55493 -r55519 --- WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml (.../GebruikerAanmeldenResponse.cls.xml) (revision 55493) +++ WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml (.../GebruikerAanmeldenResponse.cls.xml) (revision 55519) @@ -2,6 +2,15 @@ TECH.DataTransferObject + + +%String +1 + + + +%String + Index: vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml =================================================================== diff -u -r55515 -r55519 --- vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 55515) +++ vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 55519) @@ -23,8 +23,11 @@ Set GebruikerAanmeldenRequest.LoginCode = "1234" Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock) - Do GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) + #dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) + Do $$$AssertEquals(Antwoord.Status,"200") + Do $$$AssertEquals(Antwoord.Omschrijving,"") + Do AanmeldingRepositoryMock.Verifieer() ]]> @@ -50,8 +53,11 @@ Set GebruikerAanmeldenRequest.LoginCode = "1234" Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock) - Do GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) + #dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) + Do $$$AssertEquals(Antwoord.Status,"1005:InvalidUserInput") + Do $$$AssertEquals(Antwoord.Omschrijving,"Deze logincode is reeds aangemeld") + Do AanmeldingRepositoryMock.Verifieer() ]]> Index: WS/Halux/AAP/GebruikerService.cls.xml =================================================================== diff -u -r55516 -r55519 --- WS/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55516) +++ WS/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55519) @@ -41,10 +41,7 @@ GebruikerAanmeldenRequest:WS.Halux.AAP.GebruikerAanmeldenRequest WS.Halux.AAP.GebruikerAanmeldenResponse 1 - Index: WSimpl/Halux/AAP/GebruikerService.cls.xml =================================================================== diff -u -r55515 -r55519 --- WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55515) +++ WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55519) @@ -29,9 +29,14 @@ GebruikerAanmeldenRequest:WS.Halux.AAP.GebruikerAanmeldenRequest +WS.Halux.AAP.GebruikerAanmeldenResponse