- describe "getHighlights" $
- it "works" $ runSession "hie" fullCaps "test/data/renamePass" $ do
- doc <- openDoc "Desktop/simple.hs" "haskell"
- skipManyTill loggingNotification $ count 2 noDiagnostics
- highlights <- getHighlights doc (Position 27 4) -- addItem
- liftIO $ length highlights `shouldBe` 4
-
- describe "formatDoc" $
- it "works" $ runSession "hie" fullCaps "test/data" $ do
- doc <- openDoc "Format.hs" "haskell"
- oldContents <- documentContents doc
- formatDoc doc (FormattingOptions 4 True)
- documentContents doc >>= liftIO . (`shouldNotBe` oldContents)
-
- describe "formatRange" $
- it "works" $ runSession "hie" fullCaps "test/data" $ do
- doc <- openDoc "Format.hs" "haskell"
- oldContents <- documentContents doc
- formatRange doc (FormattingOptions 4 True) (Range (Position 1 10) (Position 2 10))
- documentContents doc >>= liftIO . (`shouldNotBe` oldContents)
+ -- describe "getHighlights" $
+ -- it "works" $ runSession serverExe fullCaps "test/data/renamePass" $ do
+ -- doc <- openDoc "Desktop/simple.hs" "haskell"
+ -- skipManyTill loggingNotification $ count 2 noDiagnostics
+ -- highlights <- getHighlights doc (Position 27 4) -- addItem
+ -- liftIO $ length highlights `shouldBe` 4
+
+ -- describe "formatDoc" $
+ -- it "works" $ runSession serverExe fullCaps "test/data" $ do
+ -- doc <- openDoc "Format.hs" "haskell"
+ -- oldContents <- documentContents doc
+ -- formatDoc doc (FormattingOptions 4 True)
+ -- documentContents doc >>= liftIO . (`shouldNotBe` oldContents)
+
+ -- describe "formatRange" $
+ -- it "works" $ runSession serverExe fullCaps "test/data" $ do
+ -- doc <- openDoc "Format.hs" "haskell"
+ -- oldContents <- documentContents doc
+ -- formatRange doc (FormattingOptions 4 True) (Range (Position 1 10) (Position 2 10))
+ -- documentContents doc >>= liftIO . (`shouldNotBe` oldContents)