vhUnitTest.TestCase "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_"" Set PerfionDataWSMock = ##class(vhTest.Mock.WS.PM.Perfion.Vertaling.DataService.IGetData).%New() Do PerfionDataWSMock.VerwachtMethodCall("GetLanguages").DanReturn(WsResponse) Set VertalingDataService = ##class(WSimpl.PM.Perfion.Vertaling.DataService.GetData).%New(PerfionDataWSMock) #dim Talen As %ListOfDataTypes = VertalingDataService.GeefBeschikbareTalen() ; Voorlopig alles in het eerste list-item : #dim Taal1 As %String = Talen.GetAt(1) Do $$$AssertEquals(Taal1, ""_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_" "_$c(10)_"") ; TODO : xml-parser om de "Languages" correct in de %ListOfDataTypes te krijgen. ;Do $$$AssertEquals(Talen.GetAt(1), "DE") ;Do $$$AssertEquals(Talen.GetAt(2), "EN") ;Do $$$AssertEquals(Talen.GetAt(3), "FR") ;Do $$$AssertEquals(Talen.GetAt(4), "IND") ;Do $$$AssertEquals(Talen.GetAt(5), "ITA") ;Do $$$AssertEquals(Talen.GetAt(6), "NLB") Do PerfionDataWSMock.Verifieer() ]]>