Fix FTBFS on mipsel and sparc due to test suite not being available on those architectures.

1 files changed, 11 insertions, 1 deletions

diff --git a/Command/Test.hs b/Command/Test.hs
index bf15dcf50..d4fa5eb5b 100644
--- a/Command/Test.hs
+++ b/Command/Test.hs
@@ -8,6 +8,7 @@
 module Command.Test where
 
 import Command
+import Messages
 
 def :: [Command]
 def = [ dontCheck repoExists $
@@ -19,6 +20,15 @@ seek = [withWords start]
 
 {- We don't actually run the test suite here because of a dependency loop.
  - The main program notices when the command is test and runs it; this
- - function is never run if that works. -}
+ - function is never run if that works.
+ -
+ - However, if git-annex is built without the test suite, just print a
+ - warning, and do not exit nonzero. This is so git-annex test can be run
+ - in debian/rules despite some architectures not being able to build the
+ - test suite.
+ -}
 start :: [String] -> CommandStart
+start [] = do
+	warning "git-annex was built without its test suite; not testing"
+	stop
 start _ = error "Cannot specify any additional parameters when running test"