22 lines
913 B
VB.net
22 lines
913 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 |