@@ -36,6 +36,7 @@ tests = testGroup "Katip.Scribes.Handle"
36 (path, h, fin, le) <- setupScribe
36 (path, h, fin, le) <- setupScribe
37 runKatipT le $ logItem dummyLogItem "test" Nothing InfoS "test message"
37 runKatipT le $ logItem dummyLogItem "test" Nothing InfoS "test message"
39+ runKatipT le $ logItem dummyLogItem "test" Nothing InfoS "wont make it in"
40 res <- readFile path
41 res <- readFile path
41 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
42 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