X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=c662d46af44fb141fe0ec7d13172fe119dbbb9cc;hp=40c4aab19b0fd8790d3523891af3062d99cd826f;hb=51a500ceafa6d32b39e8c79bbb885fd1f0d559a4;hpb=4ecafadfae6e2f85bd92fd26ef5a79171a8114c9 diff --git a/test/Test.hs b/test/Test.hs index 40c4aab..c662d46 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -27,7 +27,7 @@ import System.Timeout {-# ANN module ("HLint: ignore Reduce duplication" :: String) #-} {-# ANN module ("HLint: ignore Unnecessary hiding" :: String) #-} -runSession = runSessionWithConfig (defaultConfig { logStdErr = True, logMessages = True }) +runSession = runSessionWithConfig (defaultConfig { logStdErr = True }) main = hspec $ do describe "Session" $ do @@ -46,7 +46,7 @@ main = hspec $ do describe "withTimeout" $ do it "times out" $ - let sesh = runSession "hie" fullCaps "test/data/renamePass" $ do + let sesh = runSession "hie -d --bios-verbose" fullCaps "test/data/renamePass" $ do openDoc "Desktop/simple.hs" "haskell" -- won't receive a request - will timeout -- incoming logging requests shouldn't increase the