X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=344bbd587c2390b460e9212b715203fccfb2dd21;hp=e5bf5ec1da48d40765b62c86369dd2e06f3fa07e;hb=cc180dcaf2f72684a42b73d1cb76c31037c8c81a;hpb=04857dfc5bde657533dc042ec451abbf7ea3a334

diff --git a/test/Test.hs b/test/Test.hs
index e5bf5ec..344bbd5 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -161,8 +161,10 @@ main = findServer >>= \serverExe -> hspec $ do
     it "works" $ runSession serverExe fullCaps "test/data/refactor" $ do
       doc <- openDoc "Main.hs" "haskell"
       waitForDiagnostics
-      [InR action] <- getCodeActions doc (Range (Position 1 14) (Position 1 18))
+      [InR action] <- getCodeActions doc (Range (Position 0 0) (Position 0 2))
+      actions <- getCodeActions doc (Range (Position 1 14) (Position 1 18))
       liftIO $ action ^. title `shouldBe` "Delete this"
+      liftIO $ actions `shouldSatisfy` null
 
   describe "getAllCodeActions" $
     it "works" $ runSession serverExe fullCaps "test/data/refactor" $ do