hspec-core-2.1.0: test/Test/Hspec/FailureReportSpec.hs

module Test.Hspec.FailureReportSpec (main, spec) where

import           Helper

import           System.IO
import           Test.Hspec.FailureReport

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "writeFailureReport" $ do
    it "prints a warning on unexpected exceptions" $ do
      r <- hCapture_ [stderr] $ writeFailureReport (error "some error")
      r `shouldBe` "WARNING: Could not write environment variable HSPEC_FAILURES (some error)\n"