CodeIndexSpec.hs

{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -fno-warn-missing-local-signatures #-}

module Network.Bugsnag.CodeIndexSpec
    ( spec
    ) where

import Prelude

import Network.Bugsnag.CodeIndex
import Test.Hspec

spec :: Spec
spec = do
    describe "CodeIndex" $ do
        let index = $(buildCodeIndex "test/fixtures/index-project/**/*.hs")

        it "can find ranges within the file" $ do
            let path = "test/fixtures/index-project/Foo.hs"
                range = (0, 3)
                sourceLines =
                    [ (0, "module Foo where")
                    , (1, "")
                    , (2, "data What = What")
                    , (3, "    deriving Show")
                    ]

            findSourceRange path range index `shouldBe` Just sourceLines

        it "handles ranges that extend beyond bounds" $ do
            let path = "test/fixtures/index-project/Foo.hs"
                range = (6, 10)
                sourceLines =
                    [(6, "what 0 = Just What"), (7, "what _ = Nothing")]

            findSourceRange path range index `shouldBe` Just sourceLines

        it "handles ranges that are totally beyond bounds" $ do
            let path = "test/fixtures/index-project/Foo.hs"
                range = (10, 12)

            findSourceRange path range index `shouldBe` Just []

        it "handles missing files" $ do
            findSourceRange "nope.hs" (0, 3) index `shouldBe` Nothing