fix Logging.Test

This commit is contained in:
Jonathan Jenne 2020-04-06 15:17:54 +02:00
parent 729f4c73ee
commit 1d62d18ced

View File

@ -8,19 +8,19 @@ Imports DigitalData.Modules.Logging
''' </summary>
<TestClass()> Public Class ConstructorUnitTest
Private Shared _currentDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "Log")
Private Shared _appdataDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data", "Modules.Logging")
Private Shared _appdataDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data", "Modules.Logging", "Log")
Private Shared _customDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "CustomLogFolder")
Private Shared _restrictedDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.System), "ShouldNotBeCreated")
Private Shared _nonsenseDirectoryLogPath = "X:\FOO\BAR\BAZ\QUUX"
<TestMethod()> Public Sub TestConstructorCurrentDirectory()
Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
Assert.AreEqual(_currentDirectoryLogPath, oLogConfig.LogDirectory)
Assert.ThrowsException(Of ArgumentException)(Sub()
Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp)
End Sub)
End Sub
<TestMethod()> Public Sub TestConstructorApplicationDirectory()
Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData)
Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Modules.Logging")
Assert.AreEqual(_appdataDirectoryLogPath, oLogConfig.LogDirectory)
End Sub