1 files changed, 37 insertions, 0 deletions
diff --git a/t/24_git-annex-reviewunused.t b/t/24_git-annex-reviewunused.t
new file mode 100755
index 0000000..b84b608
--- /dev/null
+++ b/t/24_git-annex-reviewunused.t
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use 5.028;
+use strict;
+use warnings;
+use lib 't/lib';
+
+use App::git_annex_reviewunused;
+use Test::More;
+use t::Setup;
+use t::Util;
+use File::chdir;
+use File::Spec::Functions qw(rel2abs);
+use Capture::Tiny qw(capture_stdout);
+
+plan skip_all => "git-annex not available" unless git_annex_available;
+
+with_temp_annexes {
+    my (undef, $source1) = @_;
+    my ($output, $exit);
+
+    {
+        local $CWD = "source1";
+        (undef, undef, $exit) = run_bin "git-annex-reviewunused";
+        ok !$exit, "it exits zero when no unused files";
+        sleep 1;
+        $source1->rm("foo/foo2/baz");
+        $source1->commit({ message => "rm" });
+
+        ($output, undef, $exit) = run_bin qw(git-annex-reviewunused --just-print);
+        ok $exit, "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;