diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-08 00:12:00 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-08 00:18:09 -0400 |
| commit | a77c34d2b4795a5d41f82a78e999ce33f43d8862 (patch) | |
| tree | 6b387b9bf30dba14c6776862e0d5decc581f428f /configure.hs | |
| parent | dfc1bfcc76036549eb49d8e88136d9d40e77a51a (diff) | |
refactor
Diffstat (limited to 'configure.hs')
| -rw-r--r-- | configure.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/configure.hs b/configure.hs index 0661813ae..d340f937d 100644 --- a/configure.hs +++ b/configure.hs @@ -6,12 +6,12 @@ import Data.List import TestConfig tests :: [TestCase] -tests = [ - TestCase "version" $ getVersion +tests = + [ TestCase "version" $ getVersion , testCp "cp_a" "-a" , testCp "cp_p" "-p" , testCp "cp_reflink_auto" "--reflink=auto" - , TestCase "uuid generator" $ selectCmd True "uuid" ["uuid", "uuidgen"] "" + , TestCase "uuid generator" $ selectCmd "uuid" ["uuid", "uuidgen"] "" , TestCase "xargs -0" $ requireCmd "xargs_0" "xargs -0 </dev/null" , TestCase "rsync" $ requireCmd "rsync" "rsync --version >/dev/null" , TestCase "curl" $ testCmd "curl" "curl --version >/dev/null" @@ -24,7 +24,7 @@ shaTestCases l = map make l let cmds = map (\x -> "sha" ++ show n ++ x) ["", "sum"] key = "sha" ++ show n - in TestCase key $ selectCmd False key cmds "</dev/null" + in TestCase key $ maybeSelectCmd key cmds "</dev/null" tmpDir :: String tmpDir = "tmp" |