22 lines
902 B
VB.net
22 lines
902 B
VB.net
Imports System.Text
|
|
Imports DigitalData.Modules.Logging
|
|
Imports Microsoft.VisualStudio.TestTools.UnitTesting
|
|
Imports DigitalData.Modules.EDMI
|
|
|
|
<TestClass()> Public Class PathTest
|
|
|
|
<TestMethod()> 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 |