42 lines
1.8 KiB
VB.net
42 lines
1.8 KiB
VB.net
Imports Microsoft.VisualStudio.TestTools.UnitTesting
|
|
Imports Newtonsoft.Json
|
|
Imports Connectors.Common.slt.Responses
|
|
|
|
Namespace Connectors.Test.slt
|
|
<TestClass>
|
|
Public Class AuthTest
|
|
ReadOnly oAvailableSystemsResponse As String = "{""Message"":null,""State"":true,""Type"":40,""Value"":[{""Deactivated"":false,""Description"":"""",""Priority"":1,""SystemID"":""764f0168-0005-43ca-bfe7-267b5fe254f4"",""SystemName"":""Prod: e.wa riss Netze GmbH""}]}"
|
|
ReadOnly oLoginResponse As String = "{""Message"":null,""State"":true,""Type"":40,""Value"":""18487109-f789-4094-9f18-4f0ce85461ca""}"
|
|
ReadOnly oLogoutResponse As String = "{""Message"": null,""State"":true,""Type"":40}"
|
|
|
|
<TestMethod>
|
|
Sub AvailableSystemsTest()
|
|
Dim oResp As sltAvailableSystemResponse = JsonConvert.DeserializeObject(Of sltAvailableSystemResponse)(oAvailableSystemsResponse)
|
|
|
|
Assert.AreEqual(True, oResp.State)
|
|
Assert.AreEqual(40, oResp.Type)
|
|
Assert.AreEqual(1, oResp.Value.Count)
|
|
End Sub
|
|
|
|
<TestMethod>
|
|
Sub LoginTest()
|
|
Dim oResp As sltLoginResponse = JsonConvert.DeserializeObject(Of sltLoginResponse)(oLoginResponse)
|
|
|
|
Assert.AreEqual(Nothing, oResp.Message)
|
|
Assert.AreEqual(True, oResp.State)
|
|
Assert.AreEqual(40, oResp.Type)
|
|
Assert.AreEqual("18487109-f789-4094-9f18-4f0ce85461ca", oResp.Value)
|
|
End Sub
|
|
|
|
<TestMethod>
|
|
Sub Logout()
|
|
Dim oResp As sltLogoutResponse = JsonConvert.DeserializeObject(Of sltLogoutResponse)(oLogoutResponse)
|
|
|
|
Assert.AreEqual(Nothing, oResp.Message)
|
|
Assert.AreEqual(True, oResp.State)
|
|
Assert.AreEqual(40, oResp.Type)
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
|