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

error test for Cradle.

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-03-05 10:49:32 +09:00
parent 39954d9114
commit 2a13e9b243
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/CradleSpec.hs
View File

@ -51,6 +51,10 @@ spec = do
, cradlePackageConf = Just "test/data/cabal-dev/packages-7.6.2.conf" , cradlePackageConf = Just "test/data/cabal-dev/packages-7.6.2.conf"
} }
it "throws an error if the sandbox does not exist" $ do
withDirectory_ "/" $
findCradle (Just "/") "7.4.1" `shouldThrow` anyIOException
relativeCradle :: FilePath -> Cradle -> Cradle relativeCradle :: FilePath -> Cradle -> Cradle
relativeCradle dir cradle = Cradle { relativeCradle dir cradle = Cradle {
cradleCurrentDir = toRelativeDir dir $ cradleCurrentDir cradle cradleCurrentDir = toRelativeDir dir $ cradleCurrentDir cradle