axel-0.0.5: test/Axel/Test/Monad/ConsoleSpec.hs

module Axel.Test.Monad.ConsoleSpec where

import qualified Axel.Monad.Console as Console
import qualified Axel.Test.Monad.ConsoleMock as Mock

import Test.Tasty.Hspec

{-# ANN module "HLint: ignore Redundant do" #-}

spec_Console :: SpecWith ()
spec_Console =
  describe "putStrLn" $ do
    it "prints to the console with a trailing newline" $ do
      let action = Console.putStrLn "line1\nline2"
      let origState = Mock.mkConsoleState
      let expected = Mock.ConsoleState {Mock._consoleOutput = "line1\nline2\n"}
      case Mock.runConsoleT origState action of
        Left err -> expectationFailure err
        Right result -> result `shouldBe` ((), expected)