git-annex/configure.hs

24 lines
563 B
Haskell
Raw Normal View History

{- configure program -}
import Data.Maybe
import qualified Build.Configure as Configure
2011-08-20 20:11:42 +00:00
import Build.TestConfig
import Utility.StatFS
2010-11-18 18:07:22 +00:00
2010-11-27 21:31:20 +00:00
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
2010-11-18 18:11:18 +00:00
main :: IO ()
main = Configure.run tests