summaryrefslogtreecommitdiff
path: root/Command/Test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-15 12:49:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-15 12:49:56 -0400
commit1cf5e443c17af8c969857702ef06062ec21617b2 (patch)
tree545ce18e08448e916eeb0522c5adc785a0d35387 /Command/Test.hs
parentee088c7ecdd604ae850093eab2518529ccdb68f6 (diff)
Fix FTBFS on mipsel and sparc due to test suite not being available on those architectures.
Diffstat (limited to 'Command/Test.hs')
-rw-r--r--Command/Test.hs12
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"