diff --git a/test/Spec.hs b/test/Spec.hs index 7040f87..981da89 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -7,6 +7,12 @@ import GHC.Stack import Identifier (Identifier) import Lexer import Parser +import Types + +import Data.String (IsString (..)) +import Data.Text (Text) +import GHC.Stack +import Text.Parsec.Pos import Test.Hspec import Text.Parsec.Pos import Types @@ -51,6 +57,7 @@ modules = do , (1, 18, Anchor "myAnchor") ] + "\"OtherModule.Name\\#myAnchor\"" `shouldLexTo` [ (1, 2, Module "OtherModule.Name") , (1, 18, Anchor "myAnchor")