From 1b9c4477fb542cddbb05012a52c602eb203b2d83 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 1 Mar 2011 17:07:15 -0400
Subject: New backends: SHA512 SHA384 SHA256 SHA224

---
 configure.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'configure.hs')

diff --git a/configure.hs b/configure.hs
index b5437ec1a..772ba5489 100644
--- a/configure.hs
+++ b/configure.hs
@@ -11,11 +11,17 @@ tests = [
 	, testCp "cp_p" "-p"
 	, testCp "cp_reflink_auto" "--reflink=auto"
 	, TestCase "uuid generator" $ selectCmd "uuid" ["uuid", "uuidgen"]
-	, TestCase "sha1sum" $ requireCmd "sha1sum" "sha1sum </dev/null"
 	, TestCase "xargs -0" $ requireCmd "xargs_0" "xargs -0 </dev/null"
 	, TestCase "rsync" $ requireCmd "rsync" "rsync --version >/dev/null"
 	, TestCase "unicode FilePath support" $ unicodeFilePath
-	]
+	] ++ shaTestCases [1, 256, 512, 224, 384]
+
+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")
 
 tmpDir :: String
 tmpDir = "tmp"
-- 
cgit v1.2.3