1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
module Test.Hspec.FailureReportSpec (main, spec) where
import Helper
import System.IO
import Test.Hspec.FailureReport
import GHC.Paths (ghc)
import System.Process
import System.Exit
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"
-- GHCi needs to keep the environment on :reload, so that we can store
-- failures there. Otherwise --rerun would not be very useful. So we add a
-- test for that.
describe "GHCi" $ do
it "keeps environment variables on :reload" $ do
let flags = ["-v0", "--interactive", "-ignore-dot-ghci"]
(Just hIn, Just hOut, Nothing, processHandle) <- createProcess $ (proc ghc flags) {
std_in = CreatePipe
, std_out = CreatePipe
}
hPutStrLn hIn "import System.SetEnv"
hPutStrLn hIn "setEnv \"FOO\" \"bar\""
hPutStrLn hIn ":reload"
hPutStrLn hIn "import System.Environment"
hPutStrLn hIn "getEnv \"FOO\""
hClose hIn
r <- hGetContents hOut
length r `seq` r `shouldBe` "\"bar\"\n"
waitForProcess processHandle `shouldReturn` ExitSuccess
|
