hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Separating IO and Ghc.

Browse Source
This commit is contained in:
Kazu Yamamoto
2013-05-20 11:29:44 +09:00
parent f2f3b120af
commit 849c308e5c
17 changed files with 70 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/BrowseSpec.hs
View File

@@ -1,10 +1,9 @@
module BrowseSpec where
import Control.Applicative
import Test.Hspec
import Browse
import Expectation
import Types
import Language.Haskell.GhcMod
import Test.Hspec
spec :: Spec
spec = do

2
test/CabalApiSpec.hs
View File

@@ -1,8 +1,8 @@
module CabalApiSpec where
import Control.Applicative
import Language.Haskell.GhcMod.CabalApi
import Test.Hspec
import CabalApi
spec :: Spec
spec = do

7
test/CheckSpec.hs
View File

@@ -1,13 +1,10 @@
module CheckSpec where
import CabalApi
import Check
import Cradle
import Data.List (isSuffixOf, isInfixOf, isPrefixOf)
import Expectation
import Test.Hspec
import Types
import Language.Haskell.GhcMod
import System.FilePath
import Test.Hspec
spec :: Spec
spec = do

5
test/CradleSpec.hs
View File

@@ -1,13 +1,12 @@
module CradleSpec where
import Control.Applicative
import Cradle
import Data.List (isPrefixOf)
import Expectation
import Language.Haskell.GhcMod
import System.Directory (canonicalizePath)
import System.FilePath (addTrailingPathSeparator, (</>))
import Test.Hspec
import Types
import System.Directory (canonicalizePath)
spec :: Spec
spec = do

9
test/DebugSpec.hs
View File

@@ -1,18 +1,15 @@
module DebugSpec where
import CabalApi
import Cradle
import Debug
import Expectation
import Language.Haskell.GhcMod
import Test.Hspec
import Types
checkFast :: String -> String -> IO ()
checkFast file ans = withDirectory_ "test/data" $ do
(strVer,_) <- getGHCVersion
cradle <- findCradle Nothing strVer
res <- debug defaultOptions cradle strVer file
res `shouldContain` ans
res <- debugInfo defaultOptions cradle strVer file
lines res `shouldContain` ans
spec :: Spec
spec = do

5
test/FlagSpec.hs
View File

@@ -1,10 +1,9 @@
module FlagSpec where
import Control.Applicative
import Test.Hspec
import Expectation
import Flag
import Types
import Language.Haskell.GhcMod
import Test.Hspec
spec :: Spec
spec = do

9
test/InfoSpec.hs
View File

@@ -1,14 +1,11 @@
module InfoSpec where
import CabalApi
import Cradle
import Data.List (isPrefixOf)
import Expectation
import Info
import Test.Hspec
import Types
import System.Process
import Language.Haskell.GhcMod
import System.Exit
import System.Process
import Test.Hspec
spec :: Spec
spec = do

5
test/LangSpec.hs
View File

@@ -1,10 +1,9 @@
module LangSpec where
import Control.Applicative
import Test.Hspec
import Expectation
import Lang
import Types
import Language.Haskell.GhcMod
import Test.Hspec
spec :: Spec
spec = do

3
test/LintSpec.hs
View File

@@ -1,8 +1,7 @@
module LintSpec where
import Language.Haskell.GhcMod
import Test.Hspec
import Lint
import Types
spec :: Spec
spec = do

5
test/ListSpec.hs
View File

@@ -1,10 +1,9 @@
module ListSpec where
import Control.Applicative
import Test.Hspec
import Expectation
import List
import Types
import Language.Haskell.GhcMod
import Test.Hspec
spec :: Spec
spec = do