From a57cafe128f6117905ed974a4e8c3238120994a6 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 5 Feb 2020 21:59:05 -0700 Subject: tests for annex-review-unused Signed-off-by: Sean Whitton --- t/24_annex-review-unused.t | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100755 t/24_annex-review-unused.t 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; -- cgit v1.2.3