Add test that finalizer blocks writes
commit5d8d47483bd866cb314e8eccb4f118fd50cc2a78
authorMichael Xavier <michael@michaelxavier.net>
dateMon 3 Apr 2017, 15:06 (10 years ago)
parentff5ca3b
katip/test/Katip/Tests/Scribes/Handle.hs+1
@@ -36,6 +36,7 @@ tests = testGroup "Katip.Scribes.Handle"
3636 (path, h, fin, le) <- setupScribe
3737 runKatipT le $ logItem dummyLogItem "test" Nothing InfoS "test message"
3838 fin
39+ runKatipT le $ logItem dummyLogItem "test" Nothing InfoS "wont make it in"
3940 hClose h
4041 res <- readFile path
4142 let pat = "\\[[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2} [[:digit:]]{2}:[[:digit:]]{2}:[[:digit:]]{2}\\]\\[katip-test.test\\]\\[Info\\]\\[.+\\]\\[[[:digit:]]+\\]\\[ThreadId [[:digit:]]+\\]\\[note.deep:some note\\] test message" :: String