From 6c64a214fa569dcf1fa8cc4c79efd90d01ff5705 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 31 Jan 2012 16:34:04 -0400 Subject: add a test case for adding a file with a unicode filename This fails with ghc 4.7. --- test.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test.hs b/test.hs index 3aef83e87..7b25917a1 100644 --- a/test.hs +++ b/test.hs @@ -131,7 +131,7 @@ test_init = "git-annex init" ~: TestCase $ innewrepo $ do reponame = "test repo" test_add :: Test -test_add = "git-annex add" ~: TestList [basic, sha1dup, subdirs] +test_add = "git-annex add" ~: TestList [basic, sha1dup, sha1unicode, subdirs] where -- this test case runs in the main repo, to set up a basic -- annexed file that later tests will use @@ -158,6 +158,10 @@ test_add = "git-annex add" ~: TestList [basic, sha1dup, subdirs] git_annex "add" [sha1annexedfiledup, "--backend=SHA1"] @? "add of second file with same SHA1 failed" annexed_present sha1annexedfiledup annexed_present sha1annexedfile + sha1unicode = TestCase $ intmpclonerepo $ do + writeFile sha1annexedfileunicode $ content sha1annexedfileunicode + git_annex "add" [sha1annexedfileunicode, "--backend=SHA1"] @? "add of unicode filename failed" + annexed_present sha1annexedfileunicode subdirs = TestCase $ intmpclonerepo $ do createDirectory "dir" writeFile "dir/foo" $ content annexedfile @@ -919,6 +923,9 @@ sha1annexedfile = "sha1foo" sha1annexedfiledup :: String sha1annexedfiledup = "sha1foodup" +sha1annexedfileunicode :: String +sha1annexedfileunicode = "foo¡" + ingitfile :: String ingitfile = "bar" @@ -928,6 +935,7 @@ content f | f == ingitfile = "normal file content" | f == sha1annexedfile ="sha1 annexed file content" | f == sha1annexedfiledup = content sha1annexedfile + | f == sha1annexedfileunicode ="sha1 annexed file content ¡ünicodé!" | f == wormannexedfile = "worm annexed file content" | otherwise = "unknown file " ++ f -- cgit v1.2.3