mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix test to work on Windows

Browse source
This commit is contained in:
Joey Hess 2014-02-25 18:09:45 -04:00
parent 5df3db9027
commit b9147b4012
Failed to extract signature
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/View/ViewedFile.hs
View file

@ -68,8 +68,8 @@ dirFromViewedFile = joinPath . drop 1 . sep [] ""
prop_viewedFile_roundtrips :: FilePath -> Bool prop_viewedFile_roundtrips :: FilePath -> Bool
prop_viewedFile_roundtrips f prop_viewedFile_roundtrips f
| isAbsolute f = True -- Only relative paths are encoded. -- Relative filenames wanted, not directories.
| any (isPathSeparator) (end f) = True -- Filenames wanted, not directories. | any (isPathSeparator) (end f ++ beginning f) = True
| otherwise = dir == dirFromViewedFile (viewedFileFromReference f) | otherwise = dir == dirFromViewedFile (viewedFileFromReference f)
where where
dir = joinPath $ beginning $ splitDirectories f dir = joinPath $ beginning $ splitDirectories f