Imports System.Text Imports DigitalData.Modules.Logging Imports Microsoft.VisualStudio.TestTools.UnitTesting Imports DigitalData.Modules.EDMI Public Class PathTest ' Public Sub TestMethod1() ' Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp) ' Dim oTempPath = System.IO.Path.GetTempPath() ' Dim oPath As New DigitalData.Modules.EDMI.File.Path(oLogConfig, oTempPath) ' Dim oNow As DateTime = DateTime.Now ' Dim oYear = oNow.Year ' Dim oMonth = oNow.Month.ToString.PadLeft(2, "0") ' Dim oDay = oNow.Day.ToString.PadLeft(2, "0") ' Assert.AreEqual(oPath.GetFullPath("TestDocumentType"), $"{oTempPath}EDMI\Active\TestDocumentType\{oYear}\{oMonth}\{oDay}") ' Assert.AreEqual(oPath.GetArchivePath("TestDocumentType"), $"{oTempPath}EDMI\Archive\TestDocumentType\{oYear}\{oMonth}\{oDay}") 'End Sub End Class