summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-31 16:34:04 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-31 16:34:04 -0400
commit6c64a214fa569dcf1fa8cc4c79efd90d01ff5705 (patch)
tree6c798edc3665ec288763ce068c1177475b660ae1
parent275391b1bfa59942519b4dd2e5d4a012b41eeb5f (diff)
add a test case for adding a file with a unicode filename
This fails with ghc 4.7.
-rw-r--r--test.hs10
1 files changed, 9 insertions, 1 deletions
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