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

fix file:// url generation on windows in test

Browse source
This commit is contained in:
Joey Hess 2015-02-11 12:21:33 -04:00
parent d5d26b89c6
commit dbf307e4b8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Test.hs
View file

@ -1361,10 +1361,11 @@ test_addurl :: Assertion
test_addurl = intmpclonerepo $ do test_addurl = intmpclonerepo $ do
-- file:// only; this test suite should not hit the network -- file:// only; this test suite should not hit the network
f <- absPath "myurl" f <- absPath "myurl"
let url = replace "\\" "/" ("file://" ++ dropDrive f)
writeFile f "foo" writeFile f "foo"
git_annex "addurl" ["file://" ++ f] @? "addurl failed on file:// url" git_annex "addurl" [url] @? ("addurl failed on " ++ url)
let dest = "addurlurldest" let dest = "addurlurldest"
git_annex "addurl" ["--file", dest, "file://" ++ f] @? "addurl failed on file:// url with --file" git_annex "addurl" ["--file", dest, url] @? ("addurl failed on " ++ url ++ " with --file")
doesFileExist dest @? (dest ++ " missing after addurl --file") doesFileExist dest @? (dest ++ " missing after addurl --file")
-- This is equivilant to running git-annex, but it's all run in-process -- This is equivilant to running git-annex, but it's all run in-process