EDMI.File: Move Project

Modules.EDMI.File.Test/PathTest.vb

@@ -0,0 +1,22 @@
+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