refactor
This commit is contained in:
parent
dfc1bfcc76
commit
a77c34d2b4
2 changed files with 20 additions and 18 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue