blob: 3fb0671e78573483a8eaf61d1e1216b120642738 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{- 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
{- 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
main :: IO ()
main = Configure.run tests
|
