skip most tests when git-annex not available

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 7 insertions, 1 deletions

diff --git a/t/lib/t/Util.pm b/t/lib/t/Util.pm
index 350dfeb..dea6a42 100644
--- a/t/lib/t/Util.pm
+++ b/t/lib/t/Util.pm
@@ -12,7 +12,8 @@ use File::Temp qw(tempdir);
 use Try::Tiny;
 use Capture::Tiny qw(capture);
 
-our @EXPORT = qw( corrupt_annexed_file device_id_issues run_bin );
+our @EXPORT
+  = qw( corrupt_annexed_file device_id_issues git_annex_available run_bin );
 
 sub corrupt_annexed_file {
     my ($git, $file) = @_;
@@ -40,6 +41,11 @@ sub device_id_issues {
     return ($foo_id != $bar_id);
 }
 
+sub git_annex_available {
+    `which git-annex`;
+    return !$?;
+}
+
 sub run_bin {
     (my $bin = "App::" . shift) =~ tr/-/_/;
     local @ARGV = @_;