diff options
Diffstat (limited to 't/lib/t/Util.pm')
-rw-r--r-- | t/lib/t/Util.pm | 8 |
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 = @_; |