Skip tests when no package index available (fixes commercialhaskell/s…

…tackage#1165)
fpco · Feb 8, 2016 · f11ff15 · f11ff15
1 parent 8a3a4dd
commit f11ff15
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/stackage-curator.cabal b/stackage-curator.cabal
@@ -128,6 +128,7 @@ test-suite spec
                      , containers
                      , http-client
                      , http-client-tls
+                     , directory
 
 source-repository head
   type:     git

diff --git a/test/Stackage/PackageIndexSpec.hs b/test/Stackage/PackageIndexSpec.hs
@@ -5,11 +5,12 @@ import Stackage.PackageIndex
 import Stackage.Prelude
 import Test.Hspec
 import Distribution.Package (packageId)
+import System.Directory (doesFileExist, getAppUserDataDirectory)
 
 spec :: Spec
 spec = do
-    it "works" $ (runResourceT $ sourcePackageIndex $$ sinkNull :: IO ())
-    it "getLatestDescriptions gives reasonable results" $ do
+    it "works" $ ifIndexExists $ (runResourceT $ sourcePackageIndex $$ sinkNull :: IO ())
+    it "getLatestDescriptions gives reasonable results" $ ifIndexExists $ do
         let f x y = (display x, display y) `member` asSet (setFromList
                 [ (asText "base", asText "4.5.0.0")
                 , ("does-not-exist", "9999999999999999999")
@@ -19,3 +20,12 @@ spec = do
         p <- simpleParse $ asText "base"
         v <- simpleParse $ asText "4.5.0.0"
         (spdVersion <$> m) `shouldBe` singletonMap p v
+
+ifIndexExists :: IO () -> IO ()
+ifIndexExists inner = do
+    stack <- getAppUserDataDirectory "stack"
+    let fp = stack </> "indices" </> "Hackage" </> "00-index.tar"
+    exists <- doesFileExist fp
+    if exists
+        then inner
+        else pendingWith "00-index.tar not available, skipping test"