logging-facade-0.2.0: test/System/Logging/FacadeSpec.hs

module System.Logging.FacadeSpec (main, spec) where

import           Helper

import           System.Logging.Facade.Types
import           System.Logging.Facade.Sink
import           System.Logging.Facade

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "info" $ do
    it "writes a log message with log level INFO" $ do
      (logRecords, spy) <- logSinkSpy
      withLogSink spy (info "some log message")
      logRecords `shouldReturn` [LogRecord INFO Nothing "some log message"]