{-# LANGUAGE OverloadedStrings #-}
module HieBiosSpec where

import Control.Applicative.Combinators
import qualified Data.Text as T
import Language.Haskell.LSP.Test
import Language.Haskell.LSP.Types
import Language.Haskell.LSP.Messages
import System.FilePath ((</>))
import Test.Hspec
import TestUtils

spec :: Spec
-- Create an empty hie.yaml to trigger the parse error
spec = beforeAll_ (writeFile (hieBiosErrorPath </> "hie.yaml") "") $ do

  describe "hie-bios" $ do

    it "loads modules inside main-is" $ runSession hieCommand fullCaps "test/testdata/hieBiosMainIs" $ do
      _ <- openDoc "Main.hs" "haskell"
      _ <- count 2 waitForDiagnostics
      return ()

    it "reports errors in hie.yaml" $ runSession hieCommand fullCaps hieBiosErrorPath $ do
      _ <- openDoc "Foo.hs" "haskell"
      _ <- skipManyTill loggingNotification (satisfy isMessage)
      return ()

  where hieBiosErrorPath = "test/testdata/hieBiosError"

        isMessage (NotShowMessage (NotificationMessage _ _ (ShowMessageParams MtError s))) =
          "Couldn't parse hie.yaml" `T.isInfixOf` s
        isMessage _ = False