fix file:// url generation on windows in test

1 files changed, 3 insertions, 2 deletions

diff --git a/Test.hs b/Test.hs
index bda4cb0f6..ec1d82f81 100644
--- a/Test.hs
+++ b/Test.hs
@@ -1361,10 +1361,11 @@ 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)
 	writeFile f "foo"
-	git_annex "addurl" ["file://" ++ f] @? "addurl failed on file:// url"
+	git_annex "addurl" [url] @? ("addurl failed on " ++ url)
 	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")
 
 -- This is equivilant to running git-annex, but it's all run in-process