181d2ccd20
Don't check if configure indicated checks won't work. This should fix a FTBFS on mipsel, where configure correctly detects the checks won't work, while garbage is returned for disk space info at git-annex runtime. It also means that, when built via cabal, disk space checks are not enabled, unfortunatly.
23 lines
563 B
Haskell
23 lines
563 B
Haskell
{- configure program -}
|
|
|
|
import Data.Maybe
|
|
|
|
import qualified Build.Configure as Configure
|
|
import Build.TestConfig
|
|
import Utility.StatFS
|
|
|
|
tests :: [TestCase]
|
|
tests = [ TestCase "StatFS" testStatFS
|
|
] ++ Configure.tests False
|
|
|
|
{- This test cannot be included in Build.Configure due to needing
|
|
- Utility/StatFS.hs to be built, which it is not when "cabal configure"
|
|
- is run. -}
|
|
testStatFS :: Test
|
|
testStatFS = do
|
|
s <- getFileSystemStats "."
|
|
return $ Config "statfs_sanity_checked" $
|
|
MaybeBoolConfig $ Just $ isJust s
|
|
|
|
main :: IO ()
|
|
main = Configure.run tests
|