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