Allow test-only dependencies

cabalize.cabal

@@ -10,6 +10,7 @@ library
       Cabalize
   other-modules:
       Config
+      Config.Test
       Util
   build-depends:
       base == 4.*

package.yaml

@@ -10,3 +10,5 @@ dependencies:
 tests:
   spec:
     main: test/Spec.hs
+    dependencies:
+      - hspec == 2.*

src/Cabalize.hs

@@ -12,7 +12,9 @@ import qualified Data.HashMap.Lazy as Map
 
 import           Util
 import           Config (Config)
+
 import qualified Config
+import qualified Config.Test as Test
 
 type Dependency = String
 
@@ -48,8 +50,8 @@ test-suite spec
   default-language: Haskell2010
 |]
 
-testConfigToTest :: [Dependency] -> String -> Config.Test -> Test
-testConfigToTest dependencies name t = Test name (Config.main t) dependencies
+testConfigToTest :: [Dependency] -> String -> Test.Test -> Test
+testConfigToTest dependencies name t = Test name (Test.main t) (dependencies ++ fromMaybe [] (Test.dependencies t))
 
 configFile :: FilePath
 configFile = "package.yaml"

src/Config.hs

@@ -5,6 +5,8 @@ import           Data.Yaml
 import           GHC.Generics
 import           Data.HashMap.Lazy (HashMap)
 
+import           Config.Test (Test)
+
 data Config = Config {
   dependencies :: [String]
 , tests :: HashMap String Test
@@ -12,11 +14,5 @@ data Config = Config {
 
 instance FromJSON Config
 
-data Test = Test {
-  main :: FilePath
-} deriving (Eq, Show, Generic)
-
-instance FromJSON Test
-
 readConfig :: FilePath -> IO (Maybe Config)
 readConfig = decodeFile

src/Config/Test.hs

@@ -0,0 +1,12 @@
+{-# LANGUAGE DeriveGeneric #-}
+module Config.Test where
+
+import           Data.Yaml
+import           GHC.Generics
+
+data Test = Test {
+  main :: FilePath
+, dependencies :: Maybe [String]
+} deriving (Eq, Show, Generic)
+
+instance FromJSON Test

test/CabalizeSpec.hs

@@ -26,6 +26,7 @@ spec = do
         exposed-modules:
             Cabalize
             Config
+            Config.Test
             Util
         build-depends:
             base == 4.*
@@ -46,6 +47,7 @@ spec = do
           , base-compat
           , directory
           , filepath
+          , hspec == 2.*
           , interpolate
           , unordered-containers
           , yaml

test/ConfigSpec.hs

@@ -6,6 +6,7 @@ import           Helper
 import           Data.String.Interpolate
 
 import           Config hiding (main)
+import           Config.Test (Test(Test))
 
 main :: IO ()
 main = hspec spec
@@ -21,4 +22,4 @@ dependencies:
 tests:
   spec: 
     main: test/Spec.hs
-      |] $ \file -> readConfig file `shouldReturn` Just (Config ["base"] [("spec", Test "test/Spec.hs")])
+      |] $ \file -> readConfig file `shouldReturn` Just (Config ["base"] [("spec", Test "test/Spec.hs" Nothing)])