From 42bbacc22543c95ba16131e8bbcf11c5432b744e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 30 Jul 2013 16:57:17 -0400
Subject: Improve test suite on Windows; now tests git annex sync.

---
 Test.hs                  | 11 ++---------
 debian/changelog         |  1 +
 doc/install/Windows.mdwn |  7 +++++++
 3 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/Test.hs b/Test.hs
index eb65d21a7..62299da38 100644
--- a/Test.hs
+++ b/Test.hs
@@ -642,15 +642,8 @@ test_version env = "git-annex version" ~: intmpclonerepo env $ do
 	git_annex env "version" [] @? "version failed"
 
 test_sync :: TestEnv -> Test
-test_sync env = "git-annex sync" ~: intmpclonerepo env $ do
-{- For unknown reasons, running sync in the test suite on Windows
- - fails with what looks like PATH errors. sync works outside
- - the test suite though. TODO -}
-#ifndef __WINDOWS__
+test_sync env = "git-annex sync" ~: intmpclonerepo env $
 	git_annex env "sync" [] @? "sync failed"
-#else
-	noop
-#endif
 
 {- Regression test for union merge bug fixed in
  - 0214e0fb175a608a49b812d81b4632c081f63027 -}
@@ -1113,7 +1106,7 @@ prepare forcedirect = do
 
 	let env =
 		-- Ensure that the just-built git annex is used.
-		[ ("PATH", cwd ++ ":" ++ p)
+		[ ("PATH", cwd ++ [searchPathSeparator] ++ p)
 		, ("TOPDIR", cwd)
 		-- Avoid git complaining if it cannot determine the user's
 		-- email address, or exploding if it doesn't know the user's
diff --git a/debian/changelog b/debian/changelog
index ca5bbd52f..94143d0fc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -28,6 +28,7 @@ git-annex (4.20130724) UNRELEASED; urgency=low
   * OSX: Make git-annex-webapp run in the background, so that the app icon
     can be clicked on the open a new webapp when the assistant is already
     running.
+  * Improve test suite on Windows; now tests git annex sync.
 
  -- Joey Hess <joeyh@debian.org>  Tue, 23 Jul 2013 12:39:48 -0400
 
diff --git a/doc/install/Windows.mdwn b/doc/install/Windows.mdwn
index 9f223d8d5..c327d11ca 100644
--- a/doc/install/Windows.mdwn
+++ b/doc/install/Windows.mdwn
@@ -8,6 +8,13 @@ git-annex, many things will not work. See [[todo/windows_support]] for
 current status. Note especially that git-annex always uses [[direct_mode]]
 on Windows.
 
+The autobuilder is not currently able to run the test suite, so
+testing git-annex on Windows is up to you! To check that the build of
+git-annex works in your Windows system, you are encouraged to run the test
+suite before using git-annex on real data. After installation, run `git
+annex test`. There will be a lot of output; the important thing is that it
+should end with "All tests ok".
+
 ## autobuilds
 
 A daily build is also available, thanks to Yury V. Zaytsev and
-- 
cgit v1.2.3