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