dropdrive drops the leading slash, so need fil:///

This commit is contained in:
Joey Hess 2015-02-11 12:22:43 -04:00
parent dbf307e4b8
commit c1f6ac8fac

View file

@ -1361,7 +1361,7 @@ test_addurl :: Assertion
test_addurl = intmpclonerepo $ do
-- file:// only; this test suite should not hit the network
f <- absPath "myurl"
let url = replace "\\" "/" ("file://" ++ dropDrive f)
let url = replace "\\" "/" ("file:///" ++ dropDrive f)
writeFile f "foo"
git_annex "addurl" [url] @? ("addurl failed on " ++ url)
let dest = "addurlurldest"