Imports System.Text
Imports System.IO
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports DigitalData.Modules.Logging

''' <summary>
''' Test creating the log path in various configurations
''' </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 _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)
    End Sub

    <TestMethod()> Public Sub TestConstructorApplicationDirectory()
        Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData)

        Assert.AreEqual(_appdataDirectoryLogPath, oLogConfig.LogDirectory)
    End Sub

    <TestMethod()> Public Sub TestConstructorCustomDirectory()
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _customDirectoryLogPath)

        Assert.AreEqual(_customDirectoryLogPath, oLogConfig.LogDirectory)
    End Sub

    <TestMethod()> Public Sub TestConstructorRestrictedDirectory()
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _restrictedDirectoryLogPath)

        Assert.AreEqual(Path.GetTempPath, oLogConfig.LogDirectory)
    End Sub

    <TestMethod()> Public Sub TestConstructorNonsenseDirectory()
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _nonsenseDirectoryLogPath)

        Assert.AreEqual(Path.GetTempPath, oLogConfig.LogDirectory)
    End Sub

    <ClassCleanup()> Public Shared Sub Cleanup()
        Directory.Delete(_currentDirectoryLogPath, True)
        Directory.Delete(_appdataDirectoryLogPath, True)
        Directory.Delete(_customDirectoryLogPath, True)
    End Sub

End Class