summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-25 18:09:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-25 18:09:45 -0400
commitec8270cb586cc541b57abb2e3e7e8240b3fd6cc8 (patch)
treec8d0a1807e6696af3bd287dc23baa43a341220bc
parente18b3e57f42476063c24ccc3eb9d438d0da4653d (diff)
fix test to work on Windows
-rw-r--r--Annex/View/ViewedFile.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/View/ViewedFile.hs b/Annex/View/ViewedFile.hs
index 5733d4c94..25ac16a34 100644
--- a/Annex/View/ViewedFile.hs
+++ b/Annex/View/ViewedFile.hs
@@ -68,8 +68,8 @@ dirFromViewedFile = joinPath . drop 1 . sep [] ""
prop_viewedFile_roundtrips :: FilePath -> Bool
prop_viewedFile_roundtrips f
- | isAbsolute f = True -- Only relative paths are encoded.
- | any (isPathSeparator) (end f) = True -- Filenames wanted, not directories.
+ -- Relative filenames wanted, not directories.
+ | any (isPathSeparator) (end f ++ beginning f) = True
| otherwise = dir == dirFromViewedFile (viewedFileFromReference f)
where
dir = joinPath $ beginning $ splitDirectories f