on master help sign in
Merge Test24 and Test25 with unit tests
78f415fMatthew Pickering
generic-lens.cabal+2−25
@@ -81,10 +81,11 @@ test-suite generic-lens-test
81 type: exitcode-stdio-1.0
81 type: exitcode-stdio-1.0
82 hs-source-dirs: test
82 hs-source-dirs: test
83 main-is: Spec.hs
83 main-is: Spec.hs
84− other-modules: Util
84+ other-modules: Util Test24 Test25
85
85
86 build-depends: base >= 4.9 && <= 5.0
86 build-depends: base >= 4.9 && <= 5.0
87 , generic-lens
87 , generic-lens
88+ , lens
88 , profunctors
89 , profunctors
89 , inspection-testing >= 0.2
90 , inspection-testing >= 0.2
90 , HUnit
91 , HUnit
@@ -95,30 +96,6 @@ test-suite generic-lens-test
95 build-depends: dump-core
96 build-depends: dump-core
96 ghc-options: -fplugin=DumpCore -fplugin-opt DumpCore:core-html
97 ghc-options: -fplugin=DumpCore -fplugin-opt DumpCore:core-html
97
98
98−test-suite generic-lens-test-25
99− type: exitcode-stdio-1.0
100− hs-source-dirs: test
101− main-is: 25.hs
102−
103− build-depends: base >= 4.9 && <= 5.0
104− , generic-lens
105− , lens
106−
107− default-language: Haskell2010
108− ghc-options: -Wall
109−
110−test-suite generic-lens-test-24
111− type: exitcode-stdio-1.0
112− hs-source-dirs: test
113− main-is: 24.hs
114−
115− build-depends: base >= 4.9 && <= 5.0
116− , generic-lens
117− , lens
118−
119− default-language: Haskell2010
120− ghc-options: -Wall
121−
122test-suite doctests
99test-suite doctests
123 default-language: Haskell2010
100 default-language: Haskell2010
124 type: exitcode-stdio-1.0
101 type: exitcode-stdio-1.0
test/Spec.hs+4
@@ -24,6 +24,10 @@ import Data.Generics.Internal.VL.Lens
24import Data.Generics.Internal.VL.Prism
24import Data.Generics.Internal.VL.Prism
25import Data.Generics.Internal.VL.Traversal
25import Data.Generics.Internal.VL.Traversal
26
26
27+-- This is sufficient at we only want to test that they typecheck
28+import Test24 ()
29+import Test25 ()
30+
27main :: IO ()
31main :: IO ()
28main = do
32main = do
29 res <- runTestTT tests
33 res <- runTestTT tests
test/24.hs → test/Test24.hsrenamed+1−1
@@ -1,6 +1,6 @@
1{-# LANGUAGE DataKinds, DeriveGeneric, TypeApplications #-}
1{-# LANGUAGE DataKinds, DeriveGeneric, TypeApplications #-}
2
2
3−module Main where
3+module Test24 where
4
4
5-- Test case from #24, comments preserved
5-- Test case from #24, comments preserved
6import Control.Lens
6import Control.Lens
test/25.hs → test/Test25.hsrenamed+1−1
@@ -4,7 +4,7 @@
4{-# LANGUAGE DeriveGeneric #-}
4{-# LANGUAGE DeriveGeneric #-}
5{-# OPTIONS_GHC -Wall #-}
5{-# OPTIONS_GHC -Wall #-}
6
6
7−module Main where
7+module Test25 where
8
8
9import Control.Lens
9import Control.Lens
10import Data.Generics.Product
10import Data.Generics.Product