tests for annex-review-unused

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

1 files changed, 38 insertions, 0 deletions

diff --git a/t/24_annex-review-unused.t b/t/24_annex-review-unused.t
new file mode 100755
index 0000000..30e4288
--- /dev/null
+++ b/t/24_annex-review-unused.t
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use 5.028;
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Test::More;
+use t::Setup;
+use File::chdir;
+use File::Spec::Functions qw(rel2abs);
+
+# make sure that `make test` will always use the right version of the
+# script we seek to test
+my $aru = "annex-review-unused";
+$aru = rel2abs "blib/script/annex-review-unused"
+  if -x "blib/script/annex-review-unused";
+
+with_temp_annexes {
+    my (undef, $source1) = @_;
+
+    {
+        local $CWD = "source1";
+        system $aru;
+        ok !$?, "it exits zero when no unused files";
+        sleep 1;
+        $source1->rm("foo/foo2/baz");
+        $source1->commit({ message => "rm" });
+        my @output = `$aru --just-print`;
+        my $exit = $? >> 8;
+        ok $?, "it exits nonzero when unused files";
+        ok 20 < @output && @output < 30, "it prints ~two log entries";
+        like $output[5], qr/unused file #1/, "it prints an expected line";
+    }
+}
+;
+
+done_testing;