Add tests for #274: literals in hover info (#276)

Tests for issue #274.

Author: jacg

test/data/GotoHover.hs

@@ -6,11 +6,11 @@ data TypeConstructor = DataConstructor
   , ggg :: Int }
 aaa :: TypeConstructor
 aaa = DataConstructor
-  { fff = ""
-  , ggg = 0
+  { fff = "dfgy"
+  , ggg = 832
   }
 bbb :: TypeConstructor
-bbb = DataConstructor "" 0
+bbb = DataConstructor "mjgp" 2994
 ccc :: (Text, Int)
 ccc = (fff bbb, ggg aaa)
 ddd :: Num a => a -> a -> a
@@ -31,12 +31,14 @@ doBind = do unwrapped <- Just ()
             return unwrapped
 
 listCompBind :: [Char]
-listCompBind = [ succ c | c <- "abc" ]
+listCompBind = [ succ c | c <- "ptfx" ]
 
 multipleClause :: Bool -> Char
 multipleClause True  = 't'
 multipleClause False = 'f'
 
 -- | Recognizable docs: kpqz
 documented :: Monad m => Either Int (m a)
-documented = Left 3
+documented = Left 7518
+
+listOfInt = [ 8391 :: Int, 6268 ]

test/exe/Main.hs

@@ -846,6 +846,10 @@ findDefinitionAndHoverTests = let
   eitL40 = Position 40 28  ;  kindE  = [ExpectHoverText [":: * -> * -> *\n"]]
   intL40 = Position 40 34  ;  kindI  = [ExpectHoverText [":: *\n"]]
   tvrL40 = Position 40 37  ;  kindV  = [ExpectHoverText [":: * -> *\n"]]
+  intL41 = Position 41 20  ;  litI   = [ExpectHoverText ["7518"]]
+  chrL36 = Position 36 25  ;  litC   = [ExpectHoverText ["'t'"]]
+  txtL8  = Position  8 14  ;  litT   = [ExpectHoverText ["\"dfgv\""]]
+  lstL43 = Position 43 12  ;  litL   = [ExpectHoverText ["[ 8391 :: Int, 6268 ]"]]
   in
   mkFindTests
   --     def    hover  look   expect
@@ -876,6 +880,10 @@ findDefinitionAndHoverTests = let
   , test no     broken eitL40 kindE  "kind of Either                  #273"
   , test no     broken intL40 kindI  "kind of Int                     #273"
   , test no     broken tvrL40 kindV  "kind of (* -> *) type variable  #273"
+  , test no     broken intL41 litI   "literal Int  in hover info      #274"
+  , test no     broken chrL36 litC   "literal Char in hover info      #274"
+  , test no     broken txtL8  litT   "literal Text in hover info      #274"
+  , test no     broken lstL43 litL   "literal List in hover info      #274"
   ]
   where yes, broken :: (TestTree -> Maybe TestTree)
         yes    = Just -- test should run and pass