git-annex/configure.hs

22 lines
483 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
{- This test cannot be included in Build.Configure due to needing
- Utility/StatFS.hs to be built. -}
testStatFS :: Test
testStatFS = do
s <- getFileSystemStats "."
return $ Config "statfs_sane" $ BoolConfig $ isJust s
2010-11-18 18:11:18 +00:00
main :: IO ()
main = Configure.run tests