diff options
Diffstat (limited to 'Command/Test.hs')
| -rw-r--r-- | Command/Test.hs | 12 |
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" |