git.iko.soy/stackage
on master help sign in
Generate documentation
d0b2816Michael Snoyman
Stackage/Config.hs+12
compare with master
unifiedsplit
@@ -23,6 +23,18 @@ expectedFailures = fromList $ map PackageName
23 -- Requires a special hspec-meta which is not yet available from
23 -- Requires a special hspec-meta which is not yet available from
24 -- Hackage.
24 -- Hackage.
25 , "hspec"
25 , "hspec"
26+
27+ -- Requires markdown-unlit, which we don't want to depend on.
28+ , "hspec-expectations"
29+
30+ -- text and setenv have recursive dependencies in their tests, which
31+ -- cabal can't (yet) handle
32+ , "text"
33+ , "setenv"
34+
35+ -- The version of GLUT included with the HP does not generate
36+ -- documentation correctly.
37+ , "GLUT"
26 ]
38 ]
27
39
28-- | List of packages for our stable Hackage. All dependencies will be
40-- | List of packages for our stable Hackage. All dependencies will be
Stackage/Test.hs+6−1
@@ -43,7 +43,12 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
43 else do
43 else do
44 ph4 <- getHandle AppendMode $ \handle -> runProcess "cabal-dev" ["test"] (Just dir) Nothing Nothing (Just handle) (Just handle)
44 ph4 <- getHandle AppendMode $ \handle -> runProcess "cabal-dev" ["test"] (Just dir) Nothing Nothing (Just handle) (Just handle)
45 ec4 <- waitForProcess ph4
45 ec4 <- waitForProcess ph4
46+ if (ec4 /= ExitSuccess)
47+ then return False
48+ else do
49+ ph5 <- getHandle AppendMode $ \handle -> runProcess "cabal-dev" ["haddock"] (Just dir) Nothing Nothing (Just handle) (Just handle)
50+ ec5 <- waitForProcess ph5
46− return $ ec4 == ExitSuccess
51+ return $ ec5 == ExitSuccess
47 let expectedFailure = packageName `Set.member` expectedFailures
52 let expectedFailure = packageName `Set.member` expectedFailures
48 if passed
53 if passed
49 then do
54 then do