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