static-ls-0.1.0: test/StaticLS/IDE/HoverSpec.hs

module StaticLS.IDE.HoverSpec where

import StaticLS.IDE.Hover
import StaticLS.StaticEnv
import Test.Hspec
import qualified TestImport as Test
import qualified TestImport.Assert as Test
import qualified TestImport.TestData as Test

spec :: Spec
spec =
    describe "Correctly retrieves hover information" $ do
        describe "All available sources" $ do
            it "retrieves the myFun definition from a different module" $ do
                staticEnv <- Test.initStaticEnv
                mHoverInfo <- runStaticLs staticEnv $ uncurry retrieveHover Test.myFunRef1TdiAndPosition
                _ <- Test.assertJust "no definition loc found" mHoverInfo
                pure ()