mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2010-11-27 17:31:20 -04:00
parent f8d463b1b7
commit 1f9ce9e9a5
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
configure.hs
View file

@ -6,7 +6,7 @@ import System.Exit
import System.Directory
type Test = IO Bool
data TestDesc = TestDesc String String Test
data TestCase = TestCase String String Test
data Config = Config String Bool
instance Show Config where
@ -15,13 +15,13 @@ instance Show Config where
, key ++ " = " ++ show value
]
tests :: [TestDesc]
tests :: [TestCase]
tests = [
TestDesc "cp -a" "cp_a" $ testCp "-a"
, TestDesc "cp -p" "cp_p" $ testCp "-p"
, TestDesc "cp --reflink=auto" "cp_reflink_auto" $ testCp "--reflink=auto"
, TestDesc "uuid" "uuid" $ requireCommand "uuid" "uuid"
, TestDesc "xargs -0" "xargs_0" $ requireCommand "xargs -0" "xargs -0 </dev/null"
TestCase "cp -a" "cp_a" $ testCp "-a"
, TestCase "cp -p" "cp_p" $ testCp "-p"
, TestCase "cp --reflink=auto" "cp_reflink_auto" $ testCp "--reflink=auto"
, TestCase "uuid" "uuid" $ requireCommand "uuid" "uuid"
, TestCase "xargs -0" "xargs_0" $ requireCommand "xargs -0" "xargs -0 </dev/null"
]
tmpDir :: String
@ -70,9 +70,9 @@ writeSysConfig config = writeFile "SysConfig.hs" body
]
footer = []
runTests :: [TestDesc] -> IO [Config]
runTests :: [TestCase] -> IO [Config]
runTests [] = return []
runTests ((TestDesc tname key t):ts) = do
runTests ((TestCase tname key t):ts) = do
testStart tname
val <- t
testEnd val