error test for Cradle.

eagletmt · Mar 5, 2013 · 2a13e9b · 2a13e9b
1 parent 39954d9
commit 2a13e9b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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