diff --git a/cardano-tracer/test/Cardano/Tracer/Test/Logs/Tests.hs b/cardano-tracer/test/Cardano/Tracer/Test/Logs/Tests.hs index 0e61636d3cb..69e2b58a695 100644 --- a/cardano-tracer/test/Cardano/Tracer/Test/Logs/Tests.hs +++ b/cardano-tracer/test/Cardano/Tracer/Test/Logs/Tests.hs @@ -5,19 +5,19 @@ module Cardano.Tracer.Test.Logs.Tests ) where import Control.Concurrent.Async (withAsync) ---import Control.Monad (filterM) --- import Data.List.Extra (notNull) +import Control.Monad (filterM) +--import Data.List.Extra (notNull) import qualified Data.List.NonEmpty as NE import Test.Tasty import Test.Tasty.QuickCheck import System.Directory ---import System.FilePath +import System.FilePath import System.Time.Extra import Debug.Trace import Cardano.Tracer.Configuration ---import Cardano.Tracer.Handlers.Logs.Utils (isItLog, isItSymLink) +import Cardano.Tracer.Handlers.Logs.Utils (isItLog, isItSymLink) import Cardano.Tracer.Run (doRunCardanoTracer) import Cardano.Tracer.Utils (applyBrake, initProtocolsBrake, initDataPointRequestors) @@ -48,9 +48,8 @@ propLogs format rootDir localSock = do True -> -- ... and contains one node's subdir... listDirectory rootDir >>= \case - [] -> false "root dir is empty" - [_subDir] -> return $ property True - {- + [] -> false "root dir is empty" + (subDir:_) -> withCurrentDirectory rootDir $ -- ... with *.log-files inside... listDirectory subDir >>= \case @@ -74,10 +73,6 @@ propLogs format rootDir localSock = do return $ latestLog === takeFileName maybeLatestLog _ -> false "there is more than one symlink" else false "there is still 1 single log, no rotation" - -} - subDirs -> do - traceIO $ "FAILED subDirs: " <> show subDirs - false "root dir contains more than one subdir" False -> false "root dir doesn't exist" where config root p = TracerConfig