diff options
Diffstat (limited to 'configure.hs')
| -rw-r--r-- | configure.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/configure.hs b/configure.hs index f8cd577e9..c0e3d8106 100644 --- a/configure.hs +++ b/configure.hs @@ -20,10 +20,11 @@ tests = [ shaTestCases :: [Int] -> [TestCase] shaTestCases l = map make l - where - make n = - let cmd = "sha" ++ show n ++ "sum" - in TestCase cmd $ requireCmd cmd (cmd ++ " </dev/null") + where make n = + let + cmds = map (\x -> "sha" ++ show n ++ x ++ " </dev/null") ["", "sum"] + key = "sha" ++ show n + in TestCase key $ whichCmd key cmds tmpDir :: String tmpDir = "tmp" |