Windows: Fix some filename encoding bugs.
http://git-annex.branchable.com/bugs/Unicode_file_names_ignored_on_Windows/ Not a complete fix yet.
This commit is contained in:
parent
2f52f727c0
commit
1052eeface
8 changed files with 86 additions and 8 deletions
3
Test.hs
3
Test.hs
|
@ -22,7 +22,6 @@ import qualified Data.Map as M
|
|||
import System.IO.HVFS (SystemFS(..))
|
||||
import qualified Text.JSON
|
||||
import System.Path
|
||||
import qualified Data.ByteString.Lazy as L
|
||||
|
||||
import Common
|
||||
|
||||
|
@ -1272,7 +1271,7 @@ test_add_subdirs env = intmpclonerepo env $ do
|
|||
{- Regression test for Windows bug where symlinks were not
|
||||
- calculated correctly for files in subdirs. -}
|
||||
git_annex env "sync" [] @? "sync failed"
|
||||
l <- annexeval $ encodeW8 . L.unpack <$> Annex.CatFile.catObject (Git.Types.Ref "HEAD:dir/foo")
|
||||
l <- annexeval $ decodeBS <$> Annex.CatFile.catObject (Git.Types.Ref "HEAD:dir/foo")
|
||||
"../.git/annex/" `isPrefixOf` l @? ("symlink from subdir to .git/annex is wrong: " ++ l)
|
||||
|
||||
createDirectory "dir2"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue