1 files changed, 12 insertions, 15 deletions
diff --git a/t/24_annex-review-unused.t b/t/24_annex-review-unused.t
index 30e4288..0e8742c 100755
--- a/t/24_annex-review-unused.t
+++ b/t/24_annex-review-unused.t
@@ -5,34 +5,31 @@ use strict;
 use warnings;
 use lib 't/lib';
 
+use App::annex_review_unused;
 use Test::More;
 use t::Setup;
+use t::Util;
 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";
+use Capture::Tiny qw(capture_stdout);
 
 with_temp_annexes {
     my (undef, $source1) = @_;
+    my ($output, $exit);
 
     {
         local $CWD = "source1";
-        system $aru;
-        ok !$?, "it exits zero when no unused files";
+        (undef, undef, $exit) = run_bin "annex-review-unused";
+        ok !$exit, "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";
+
+        ($output, undef, $exit) = run_bin qw(annex-review-unused --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;