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