created cabal file offers building the test program (executable)

BNFC · Jan 7, 2018 · e8c958d · e8c958d
1 parent cdc421a
commit e8c958d
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 15 deletions.
diff --git a/source/src/BNFC/Backend/Haskell/CFtoCabal.hs b/source/src/BNFC/Backend/Haskell/CFtoCabal.hs
@@ -38,32 +38,49 @@ buildPackageDescription opt = emptyPackageDescription
     PackageIdentifier
       { pkgName = PackageName (lang opt)
       , pkgVersion = Version [0,1] []}
-  , library =
-    Just mempty
-      { exposedModules = exposedMods opt
-      , libExposed = True
-      , libBuildInfo = emptyBuildInfo
-          { buildable    = True
-          , hsSourceDirs = ["."]
-          , targetBuildDepends = dependencies opt
-          }
-      }
+  , library = Just (createLibrary opt)
+  , executables = [createExecutable opt]
   , extraSrcFiles = [ happyFile opt, alexFile opt ]
   , buildType = Just Simple
   , license = AllRightsReserved
+  , specVersionRaw = Right (orLaterVersion $ Version [1,22] [])
    }
 
 dependencies :: SharedOptions -> [Dependency]
 dependencies opt =
-    [ Dependency (PackageName "base") (laterVersion $ Version [4] [])
+    [ Dependency (PackageName "base") (orLaterVersion $ Version [4] [])
     , Dependency (PackageName "array") anyVersion
     ] ++
     [ Dependency (PackageName "mtl") anyVersion | TargetHaskellGadt == target opt ]
 
+createLibrary :: SharedOptions -> Library
+createLibrary opt = mempty
+  { exposedModules = exposedLibMods opt
+  , libExposed = True
+  , libBuildInfo = emptyBuildInfo
+          { buildable    = True
+          , hsSourceDirs = ["."]
+          , targetBuildDepends = dependencies opt
+          }
+  }
+
+createExecutable :: SharedOptions -> Executable
+createExecutable opt = Executable name mainIs buildInfo where
+  name :: String
+  name = "Test" ++ lang opt
+
+  mainIs :: FilePath
+  mainIs = tFile opt
+
+  buildInfo :: BuildInfo
+  buildInfo = mempty
+    { targetBuildDepends = dependencies opt
+    , otherModules = exposedLibMods opt
+    }
 
--- |returns a list of all exposed modules
-exposedMods :: SharedOptions -> [ModuleName]
-exposedMods opt = map fromString $
+-- |returns a list of all modules the library exposes
+exposedLibMods :: SharedOptions -> [ModuleName]
+exposedLibMods opt = map fromString $
   [absFileM opt
   ,errFileM opt
   ,printerFileM opt

diff --git a/testing/src/HaskellCabalTests.hs b/testing/src/HaskellCabalTests.hs
@@ -30,12 +30,13 @@ mkTest target desc bnfcParams =
   makeShellyTest description $ withTmpDir $ \tmp -> do
     cd tmp
     writefile "Test.cf" $ unlines
-      [ "Start. S ::= S \"a\" ;"
+      [ "Start. S ::= S \"parseMe\" ;"
       , "End.   S ::= ;" ]
     run_ "bnfc" args
     assertFileExists "Test.cabal"
     cmd "cabal" "configure"
     cmd "cabal" "build"
+    cmd "echo" "parseMe" -|- cmd "cabal" "run"
     where
       args :: [Text]
       args = target:"--cabal":bnfcParams ++ ["Test.cf"]