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

refactor

Browse source
This commit is contained in:
Joey Hess 2011-04-08 00:12:00 -04:00
parent dfc1bfcc76
commit a77c34d2b4
2 changed files with 20 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

8
configure.hs
View file

@ -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"