From 2a13e9b243036aa28c10061ef1ab80ad15a30afb Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Tue, 5 Mar 2013 10:49:32 +0900 Subject: [PATCH] error test for Cradle. --- test/CradleSpec.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/test/CradleSpec.hs b/test/CradleSpec.hs index 201788a..16cd5a8 100644 --- a/test/CradleSpec.hs +++ b/test/CradleSpec.hs @@ -42,7 +42,7 @@ spec = do } it "finds a sandbox if exists" $ do - withDirectory "/" $ \dir -> do + withDirectory "/" $ \dir -> do res <- relativeCradle dir <$> findCradle (Just $ addTrailingPathSeparator dir ++ "test/data/cabal-dev") "7.6.2" res `shouldBe` Cradle { cradleCurrentDir = "/" @@ -51,6 +51,10 @@ spec = do , 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 dir cradle = Cradle { cradleCurrentDir = toRelativeDir dir $ cradleCurrentDir cradle