summaryrefslogtreecommitdiff
path: root/configure.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-02 14:53:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-02 14:58:01 -0400
commit648827861024783ef6fa9c03e8ca5210c68fc7cb (patch)
treed608e5bed336aa567da6af9e339af94f29f131b0 /configure.hs
parent80459918307730f9abc9c6b681d4888758b6d522 (diff)
cabal sdist: plan C
Diffstat (limited to 'configure.hs')
-rw-r--r--configure.hs14
1 files changed, 0 insertions, 14 deletions
diff --git a/configure.hs b/configure.hs
index d47dddf1d..8639af44b 100644
--- a/configure.hs
+++ b/configure.hs
@@ -17,7 +17,6 @@ tests =
, TestCase "curl" $ testCmd "curl" "curl --version >/dev/null"
, TestCase "bup" $ testCmd "bup" "bup --version >/dev/null"
, TestCase "gpg" $ testCmd "gpg" "gpg --version >/dev/null"
- , TestCase "unicode FilePath support" $ unicodeFilePath
] ++ shaTestCases [1, 256, 512, 224, 384]
shaTestCases :: [Int] -> [TestCase]
@@ -40,19 +39,6 @@ testCp k option = TestCase cmd $ testCmd k run
cmd = "cp " ++ option
run = cmd ++ " " ++ testFile ++ " " ++ testFile ++ ".new"
-{- Checks if FilePaths contain decoded unicode, or not. The testdata
- - directory contains a "unicode-test-ü" file; try to find the file,
- - and see if the "ü" is encoded correctly.
- -
- - Note that the file is shipped with git-annex, rather than created,
- - to avoid other potential unicode issues.
- -}
-unicodeFilePath :: Test
-unicodeFilePath = do
- fs <- getDirectoryContents "testdata"
- let file = head $ filter (isInfixOf "unicode-test") fs
- return $ Config "unicodefilepath" (BoolConfig $ isInfixOf "ü" file)
-
{- Pulls package version out of the changelog. -}
getVersion :: Test
getVersion = do