disable test suite on Android

Cannot get QuickCheck to install just now.

1 files changed, 8 insertions, 0 deletions

diff --git a/git-annex.hs b/git-annex.hs
index e2cd80ace..a2ddb0032 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -5,12 +5,16 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 import System.Environment
 import System.FilePath
 
 import qualified GitAnnex
 import qualified GitAnnexShell
+#ifdef WITH_TESTUITE
 import qualified Test
+#endif
 
 main :: IO ()
 main = run =<< getProgName
@@ -21,6 +25,10 @@ main = run =<< getProgName
 	isshell n = takeFileName n == "git-annex-shell"
 	go a = do
 		ps <- getArgs
+#ifdef WITH_TESTUITE
 		if ps == ["test"]
 			then Test.main
 			else a ps
+#else
+		a ps
+#endif