2012-03-10 14:00:26 -04:00
|
|
|
{- configure program -}
|
2010-11-18 13:30:42 -04:00
|
|
|
|
2012-01-15 13:26:17 -04:00
|
|
|
import Data.Maybe
|
2010-11-18 13:30:42 -04:00
|
|
|
|
2012-03-10 14:00:26 -04:00
|
|
|
import qualified Build.Configure as Configure
|
2011-08-20 16:11:42 -04:00
|
|
|
import Build.TestConfig
|
2012-01-15 13:26:17 -04:00
|
|
|
import Utility.StatFS
|
2010-11-18 14:07:22 -04:00
|
|
|
|
2010-11-27 17:31:20 -04:00
|
|
|
tests :: [TestCase]
|
2012-03-10 14:00:26 -04:00
|
|
|
tests = [ TestCase "StatFS" testStatFS
|
|
|
|
] ++ Configure.tests
|
2012-02-25 19:15:29 -04:00
|
|
|
|
2012-03-10 14:00:26 -04:00
|
|
|
{- This test cannot be included in Build.Configure due to needing
|
|
|
|
- Utility/StatFS.hs to be built. -}
|
2012-01-15 13:26:17 -04:00
|
|
|
testStatFS :: Test
|
|
|
|
testStatFS = do
|
|
|
|
s <- getFileSystemStats "."
|
|
|
|
return $ Config "statfs_sane" $ BoolConfig $ isJust s
|
|
|
|
|
2010-11-18 14:11:18 -04:00
|
|
|
main :: IO ()
|
2012-03-10 14:00:26 -04:00
|
|
|
main = Configure.run tests
|