Imports System.Text
Imports GRI.ActiveDirectoryManagement
Imports GRI.ActiveDirectoryManagement.Contracts
Imports Microsoft.VisualStudio.TestTools.UnitTesting
<TestClass()> Public Class ActiveDirectoryManagementTest
Private ReadOnly _activeDirectoryManager As IActiveDirectoryManager = New ActiveDirectoryManager
Private Const Domain As String = „DomainName“
<TestMethod()> <Owner(„OwnerName“)> Public Sub TestSidCorrect()
Dim users = _activeDirectoryManager.GetAllUsersAsSidWithSamAccountName(Domain)
Dim actual = users.ContainsValue(„firstname.lastname“) AndAlso users.ContainsKey(„S-1-5-21-49350932-217275072-1489575960-4818“)
Const expected = True
Assert.AreEqual(expected, actual)
End Sub
End Class