test for Cabal and CabalApi.
This commit is contained in:
Kazu Yamamoto
parent
23045b5312
commit
5b2ddde59e
32
Cabal.hs
32
Cabal.hs
|
|
@ -1,6 +1,6 @@
|
|||
{-# LANGUAGE OverloadedStrings, RecordWildCards #-}
|
||||
|
||||
module Cabal (initializeGHC) where
|
||||
module Cabal (initializeGHC, getDirs, fromCabal) where
|
||||
|
||||
import CabalApi (cabalParseFile, cabalBuildInfo, cabalDependPackages)
|
||||
import Control.Applicative
|
||||
|
|
@ -30,20 +30,26 @@ initializeGHC opt fileName ghcOptions logging = withCabal ||> withoutCabal
|
|||
logReader <- initSession opt ghcOptions importDirs Nothing logging
|
||||
return (fileName,logReader)
|
||||
withCabal = do
|
||||
(owdir,cdir,cfile) <- liftIO getDirs
|
||||
cabal <- liftIO $ cabalParseFile cfile
|
||||
binfo@BuildInfo{..} <- liftIO $ cabalBuildInfo cabal
|
||||
let exts = map (addX . Gap.extensionToString) $ usedExtensions binfo
|
||||
lang = maybe "-XHaskell98" (addX . show) defaultLanguage
|
||||
libs = map ("-l" ++) extraLibs
|
||||
libDirs = map ("-L" ++) extraLibDirs
|
||||
gopts = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs
|
||||
idirs = case hsSourceDirs of
|
||||
[] -> [cdir,owdir]
|
||||
dirs -> map (cdir </>) dirs ++ [owdir]
|
||||
depPkgs <- liftIO $ cabalDependPackages cabal
|
||||
(gopts,idirs,depPkgs) <- liftIO $ fromCabal ghcOptions
|
||||
logReader <- initSession opt gopts idirs (Just depPkgs) logging
|
||||
return (fileName,logReader)
|
||||
|
||||
fromCabal :: [String] -> IO ([String], [FilePath], [String])
|
||||
fromCabal ghcOptions = do
|
||||
(owdir,cdir,cfile) <- getDirs
|
||||
cabal <- cabalParseFile cfile
|
||||
binfo@BuildInfo{..} <- cabalBuildInfo cabal
|
||||
let exts = map (addX . Gap.extensionToString) $ usedExtensions binfo
|
||||
lang = maybe "-XHaskell98" (addX . show) defaultLanguage
|
||||
libs = map ("-l" ++) extraLibs
|
||||
libDirs = map ("-L" ++) extraLibDirs
|
||||
gopts = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs
|
||||
idirs = case hsSourceDirs of
|
||||
[] -> [cdir,owdir]
|
||||
dirs -> map (cdir </>) dirs ++ [owdir]
|
||||
depPkgs <- cabalDependPackages cabal
|
||||
return (gopts,idirs,depPkgs)
|
||||
where
|
||||
addX = ("-X" ++)
|
||||
|
||||
----------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -68,6 +68,8 @@ Test-Suite spec
|
|||
Type: exitcode-stdio-1.0
|
||||
Other-Modules: Expectation
|
||||
BrowseSpec
|
||||
CabalSpec
|
||||
CabalApiSpec
|
||||
FlagSpec
|
||||
LangSpec
|
||||
LintSpec
|
||||
|
|
|
|||
|
|
@ -0,0 +1,17 @@
|
|||
module CabalApiSpec where
|
||||
|
||||
import Test.Hspec
|
||||
import CabalApi
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
describe "cabalDependPackages" $ do
|
||||
it "extracts dependent packages" $ do
|
||||
pkgs <- cabalParseFile "test/data/cabalapi.cabal" >>= cabalDependPackages
|
||||
pkgs `shouldBe` ["Cabal","base","containers","convertible","directory","filepath","ghc","ghc-paths","ghc-syb-utils","hlint","hspec","io-choice","old-time","process","regex-posix","syb","time","transformers"]
|
||||
|
||||
describe "cabalBuildInfo" $ do
|
||||
it "extracts build info" $ do
|
||||
info <- cabalParseFile "test/data/cabalapi.cabal" >>= cabalBuildInfo
|
||||
let infoStr = show info
|
||||
infoStr `shouldBe` "BuildInfo {buildable = True, buildTools = [], cppOptions = [], ccOptions = [], ldOptions = [], pkgconfigDepends = [], frameworks = [], cSources = [], hsSourceDirs = [], otherModules = [ModuleName [\"Browse\"],ModuleName [\"CabalApi\"],ModuleName [\"Cabal\"],ModuleName [\"CabalDev\"],ModuleName [\"Check\"],ModuleName [\"ErrMsg\"],ModuleName [\"Flag\"],ModuleName [\"GHCApi\"],ModuleName [\"GHCChoice\"],ModuleName [\"Gap\"],ModuleName [\"Info\"],ModuleName [\"Lang\"],ModuleName [\"Lint\"],ModuleName [\"List\"],ModuleName [\"Paths_ghc_mod\"],ModuleName [\"Types\"]], defaultLanguage = Nothing, otherLanguages = [], defaultExtensions = [], otherExtensions = [], oldExtensions = [], extraLibs = [], extraLibDirs = [], includeDirs = [], includes = [], installIncludes = [], options = [(GHC,[\"-Wall\"])], ghcProfOptions = [], ghcSharedOptions = [], customFieldsBI = [], targetBuildDepends = []}"
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
module CabalSpec where
|
||||
|
||||
import Control.Applicative
|
||||
import System.Directory
|
||||
import Test.Hspec
|
||||
import Cabal
|
||||
import Expectation
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
describe "getDirs" $ do
|
||||
it "obtains two directories and a cabal file" $ do
|
||||
len <- length <$> getCurrentDirectory
|
||||
withDirectory "test/data/subdir1/subdir2" $ do
|
||||
(x,y,z) <- getDirs
|
||||
(drop len x, drop len y, drop len z) `shouldBe` ("/test/data/subdir1/subdir2","/test/data","/test/data/cabalapi.cabal")
|
||||
|
||||
describe "getDirs" $ do
|
||||
it "obtains two directories and a cabal file" $ do
|
||||
withDirectory "test/data/subdir1/subdir2" $ do
|
||||
(x,y,z) <- fromCabal []
|
||||
(x,y,z) `shouldBe` (["-XHaskell98"],["/Users/kazu/work/ghc-mod/test/data","/Users/kazu/work/ghc-mod/test/data/subdir1/subdir2"],["Cabal","base","containers","convertible","directory","filepath","ghc","ghc-paths","ghc-syb-utils","hlint","hspec","io-choice","old-time","process","regex-posix","syb","time","transformers"])
|
||||
|
|
@ -1,8 +1,15 @@
|
|||
module Expectation where
|
||||
|
||||
import Test.Hspec
|
||||
import System.Directory
|
||||
import Control.Exception as E
|
||||
|
||||
shouldContain :: Eq a => [a] -> a -> Expectation
|
||||
shouldContain containers element = do
|
||||
let res = element `elem` containers
|
||||
res `shouldBe` True
|
||||
|
||||
withDirectory :: FilePath -> IO a -> IO a
|
||||
withDirectory dir action = bracket getCurrentDirectory
|
||||
setCurrentDirectory
|
||||
(\_ -> setCurrentDirectory dir >> action)
|
||||
|
|
|
|||
|
|
@ -0,0 +1,97 @@
|
|||
Name: ghc-mod
|
||||
Version: 1.11.3
|
||||
Author: Kazu Yamamoto <kazu@iij.ad.jp>
|
||||
Maintainer: Kazu Yamamoto <kazu@iij.ad.jp>
|
||||
License: BSD3
|
||||
License-File: LICENSE
|
||||
Homepage: http://www.mew.org/~kazu/proj/ghc-mod/
|
||||
Synopsis: Happy Haskell programming on Emacs/Vim
|
||||
Description: This packages includes Elisp files
|
||||
and a Haskell command, "ghc-mod".
|
||||
"ghc*.el" enable completion of
|
||||
Haskell symbols on Emacs.
|
||||
Flymake is also integrated.
|
||||
"ghc-mod" is a backend of "ghc*.el".
|
||||
It lists up all installed modules
|
||||
or extracts names of functions, classes,
|
||||
and data declarations.
|
||||
To use "ghc-mod" on Vim,
|
||||
see <https://github.com/eagletmt/ghcmod-vim> or
|
||||
<https://github.com/scrooloose/syntastic>
|
||||
Category: Development
|
||||
Cabal-Version: >= 1.6
|
||||
Build-Type: Simple
|
||||
Data-Dir: elisp
|
||||
Data-Files: Makefile ghc.el ghc-func.el ghc-doc.el ghc-comp.el
|
||||
ghc-flymake.el ghc-command.el ghc-info.el
|
||||
ghc-ins-mod.el ghc-indent.el
|
||||
Executable ghc-mod
|
||||
Main-Is: GHCMod.hs
|
||||
Other-Modules: Browse
|
||||
CabalApi
|
||||
Cabal
|
||||
CabalDev
|
||||
Check
|
||||
ErrMsg
|
||||
Flag
|
||||
GHCApi
|
||||
GHCChoice
|
||||
Gap
|
||||
Info
|
||||
Lang
|
||||
Lint
|
||||
List
|
||||
Paths_ghc_mod
|
||||
Types
|
||||
GHC-Options: -Wall
|
||||
Build-Depends: base >= 4.0 && < 5
|
||||
, Cabal >= 1.10
|
||||
, containers
|
||||
, convertible
|
||||
, directory
|
||||
, filepath
|
||||
, ghc
|
||||
, ghc-paths
|
||||
, ghc-syb-utils
|
||||
, hlint >= 1.7.1
|
||||
, io-choice
|
||||
, old-time
|
||||
, process
|
||||
, regex-posix
|
||||
, syb
|
||||
, time
|
||||
, transformers
|
||||
|
||||
Test-Suite spec
|
||||
Main-Is: Spec.hs
|
||||
Hs-Source-Dirs: test, .
|
||||
Type: exitcode-stdio-1.0
|
||||
Other-Modules: Expectation
|
||||
BrowseSpec
|
||||
CabalApiSpec
|
||||
FlagSpec
|
||||
LangSpec
|
||||
LintSpec
|
||||
ListSpec
|
||||
Build-Depends: base >= 4.0 && < 5
|
||||
, Cabal >= 1.10
|
||||
, containers
|
||||
, convertible
|
||||
, directory
|
||||
, filepath
|
||||
, ghc
|
||||
, ghc-paths
|
||||
, ghc-syb-utils
|
||||
, hlint >= 1.7.1
|
||||
, io-choice
|
||||
, old-time
|
||||
, process
|
||||
, regex-posix
|
||||
, syb
|
||||
, time
|
||||
, transformers
|
||||
, hspec
|
||||
|
||||
Source-Repository head
|
||||
Type: git
|
||||
Location: git://github.com/kazu-yamamoto/ghc-mod.git
|
||||
|
|
@ -0,0 +1 @@
|
|||
dummy
|
||||
Loading…
Reference in New Issue