+ conf = def { capabilities = caps }
+ runSessionWithConfig conf "hie --lsp" "test/data/renamePass" $ return ()
+
+ it "times out" $
+ let sesh = runSessionWithConfig (def {timeout = 10}) "hie --lsp" "test/data/renamePass" $ do
+ skipMany loggingNotification
+ _ <- request :: Session ApplyWorkspaceEditRequest
+ return ()
+ in sesh `shouldThrow` anySessionException
+
+ it "doesn't time out" $ runSessionWithConfig (def {timeout = 10}) "hie --lsp" "test/data/renamePass" $ do
+ loggingNotification
+ liftIO $ threadDelay 5
+