main = hspec $ do
describe "manual session" $ do
it "passes a test" $
- runSession "test/recordings/renamePass" $ do
+ runSession "hie" "test/recordings/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
it "fails a test" $
-- TODO: Catch the exception in haskell-lsp-test and provide nicer output
- let session = runSession "test/recordings/renamePass" $ do
+ let session = runSession "hie" "test/recordings/renamePass" $ do
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
anyRequest
describe "replay session" $ do
it "passes a test" $
- replaySession "test/recordings/renamePass" `shouldReturn` True
+ replaySession "hie" "test/recordings/renamePass" `shouldReturn` True
it "fails a test" $
- replaySession "test/recordings/renameFail" `shouldReturn` False
+ replaySession "hie" "test/recordings/renameFail" `shouldReturn` False
parsingSpec