Add eval plugin info cmd tests

Author: akrmn

plugins/hls-eval-plugin/test/Main.hs

@@ -107,6 +107,11 @@ tests =
     ]
   , goldenWithEval "Works with NoImplicitPrelude" "TNoImplicitPrelude" "hs"
   , goldenWithEval "Variable 'it' works" "TIt" "hs"
+  , goldenWithEval ":info reports type, constructors and instances" "TInfo" "hs"
+  , goldenWithEval ":info reports type, constructors and instances for multiple types" "TInfoMany" "hs"
+  , goldenWithEval ":info! reports type, constructors and unfiltered instances" "TInfoBang" "hs"
+  , goldenWithEval ":info! reports type, constructors and unfiltered instances for multiple types" "TInfoBangMany" "hs"
+  , goldenWithEval ":i behaves exactly the same as :info" "TI_Info" "hs"
   ]
 
 goldenWithEval :: TestName -> FilePath -> FilePath -> TestTree

plugins/hls-eval-plugin/test/cabal.project

@@ -0,0 +1,3 @@
+packages:
+  testdata/
+  info-util/

plugins/hls-eval-plugin/test/info-util/InfoUtil.hs

@@ -0,0 +1,20 @@
+module InfoUtil
+  ( Eq
+  , Ord
+  , Foo (..)
+  , Bar (..)
+  , Baz
+  )
+where
+
+import Prelude (Eq, Ord)
+
+data Foo = Foo1 | Foo2
+  deriving (Eq, Ord)
+
+data Bar = Bar1 | Bar2 | Bar3
+  deriving (Eq, Ord)
+
+class Baz t
+instance Baz Foo
+instance Baz Bar

plugins/hls-eval-plugin/test/info-util/info-util.cabal

@@ -0,0 +1,18 @@
+name:                info-util
+version:             0.1.0.0
+-- synopsis:
+-- description:
+license:             BSD3
+author:              Author name here
+maintainer:          [email protected]
+copyright:           2017 Author name here
+category:            Web
+build-type:          Simple
+cabal-version:       >=1.10
+
+library
+  exposed-modules:
+    InfoUtil
+  build-depends:       base >= 4.7 && < 5
+  default-language:    Haskell2010
+  ghc-options:         -Wall -fwarn-unused-imports

plugins/hls-eval-plugin/test/testdata/TI_Info.expected.hs

@@ -0,0 +1,10 @@
+module TI_Info (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :i Foo
+-- type Foo :: *
+-- data Foo = Foo1 | Foo2
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Foo -- Defined in ‘InfoUtil’

plugins/hls-eval-plugin/test/testdata/TI_Info.hs

@@ -0,0 +1,5 @@
+module TI_Info (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :i Foo

plugins/hls-eval-plugin/test/testdata/TInfo.expected.hs

@@ -0,0 +1,10 @@
+module TInfo (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :info Foo
+-- type Foo :: *
+-- data Foo = Foo1 | Foo2
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Foo -- Defined in ‘InfoUtil’

plugins/hls-eval-plugin/test/testdata/TInfo.hs

@@ -0,0 +1,5 @@
+module TInfo (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :info Foo

plugins/hls-eval-plugin/test/testdata/TInfoBang.expected.hs

@@ -0,0 +1,11 @@
+module TInfoBang (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :info! Foo
+-- type Foo :: *
+-- data Foo = Foo1 | Foo2
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Baz Foo -- Defined in ‘InfoUtil’

plugins/hls-eval-plugin/test/testdata/TInfoBang.hs

@@ -0,0 +1,5 @@
+module TInfoBang (Eq, Ord, Foo) where
+
+import InfoUtil (Eq, Ord, Foo)
+
+-- >>> :info! Foo

plugins/hls-eval-plugin/test/testdata/TInfoBangMany.expected.hs

@@ -0,0 +1,17 @@
+module TInfoBangMany (Eq, Ord, Foo, Bar) where
+
+import InfoUtil (Eq, Ord, Foo, Bar)
+
+-- >>> :info! Foo Bar
+-- type Foo :: *
+-- data Foo = Foo1 | Foo2
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Baz Foo -- Defined in ‘InfoUtil’
+-- type Bar :: *
+-- data Bar = Bar1 | Bar2 | Bar3
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Bar -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Bar -- Defined in ‘InfoUtil’
+-- instance [safe] Baz Bar -- Defined in ‘InfoUtil’

plugins/hls-eval-plugin/test/testdata/TInfoBangMany.hs

@@ -0,0 +1,5 @@
+module TInfoBangMany (Eq, Ord, Foo, Bar) where
+
+import InfoUtil (Eq, Ord, Foo, Bar)
+
+-- >>> :info! Foo Bar

plugins/hls-eval-plugin/test/testdata/TInfoMany.expected.hs

@@ -0,0 +1,15 @@
+module TInfoMany (Eq, Ord, Foo, Bar) where
+
+import InfoUtil (Eq, Ord, Foo, Bar)
+
+-- >>> :info Foo Bar
+-- type Foo :: *
+-- data Foo = Foo1 | Foo2
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Foo -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Foo -- Defined in ‘InfoUtil’
+-- type Bar :: *
+-- data Bar = Bar1 | Bar2 | Bar3
+--   	-- Defined in ‘InfoUtil’
+-- instance [safe] Eq Bar -- Defined in ‘InfoUtil’
+-- instance [safe] Ord Bar -- Defined in ‘InfoUtil’

plugins/hls-eval-plugin/test/testdata/TInfoMany.hs

@@ -0,0 +1,5 @@
+module TInfoMany (Eq, Ord, Foo, Bar) where
+
+import InfoUtil (Eq, Ord, Foo, Bar)
+
+-- >>> :info Foo Bar

plugins/hls-eval-plugin/test/testdata/cabal.project

@@ -56,8 +56,12 @@ library
       TSetup
       Util
       TNested
+      TInfo
+      TInfoMany
+      TInfoBang
+      TInfoBangMany
+      TI_Info
 
-  build-depends:       base >= 4.7 && < 5, QuickCheck
+  build-depends:       base >= 4.7 && < 5, QuickCheck, info-util
   default-language:    Haskell2010
   ghc-options:         -Wall -fwarn-unused-imports
-