diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 13:19:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 13:19:48 -0700 |
commit | 05167b4f504b2eb9a64783be0f1b26efad5a8b0e (patch) | |
tree | 5c28ddb05f79add27856ed1f5b8d219bda04bd56 | |
parent | e5d36bfcae4b6d52747ea7815a08ed8392bcd07c (diff) | |
download | p5-Git-Annex-05167b4f504b2eb9a64783be0f1b26efad5a8b0e.tar.gz |
Rename annex-review-unused to git-annex-reviewunused
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | Changes | 2 | ||||
-rw-r--r-- | README | 4 | ||||
-rwxr-xr-x | bin/git-annex-reviewunused (renamed from bin/annex-review-unused) | 8 | ||||
-rw-r--r-- | lib/App/git_annex_reviewunused.pm (renamed from lib/App/annex_review_unused.pm) | 4 | ||||
-rwxr-xr-x | t/24_git-annex-reviewunused.t (renamed from t/24_annex-review-unused.t) | 6 |
5 files changed, 13 insertions, 11 deletions
@@ -1,6 +1,8 @@ Revision history for Git::Annex {{$NEXT}} + - Rename annex-review-unused to git-annex-reviewunused now that git-annex + supports third party subcommands. 0.006 2020-03-23 17:02:28-07:00 America/Phoenix - annex-review-unused: Check whether unused files still exist earlier. @@ -8,7 +8,7 @@ Git::Annex -- class representing a git-annex repository annex-to-annex -- use hardlinks to migrate files between git annex repos -annex-review-unused -- interactively process `git annex unused` output +git-annex-reviewunused -- interactively process `git annex unused` output INSTALLATION @@ -28,7 +28,7 @@ After installing, you can find documentation for this module and its scripts with the perldoc & man commands. % perldoc Git::Annex - % man annex-review-unused + % man git-annex-reviewunused You can also look for information at: diff --git a/bin/annex-review-unused b/bin/git-annex-reviewunused index 99d8798..b4fa7e3 100755 --- a/bin/annex-review-unused +++ b/bin/git-annex-reviewunused @@ -1,5 +1,5 @@ #!/usr/bin/perl -# PODNAME: annex-review-unused +# PODNAME: git-annex-reviewunused # ABSTRACT: interactively process 'git annex unused' output # # Copyright (C) 2019-2020 Sean Whitton <spwhitton@spwhitton.name> @@ -19,7 +19,7 @@ =head1 SYNOPSIS -B<annex-review-unused> [B<--just-print>] [B<--from=>I<REMOTE>] [B<--used-refspec=>I<USEDREFSPEC>] +B<git annex reviewunused> [B<--just-print>] [B<--from=>I<REMOTE>] [B<--used-refspec=>I<USEDREFSPEC>] =head1 DESCRIPTION @@ -57,5 +57,5 @@ git-annex-unused(1), git-annex-dropunused(1) =cut -use App::annex_review_unused; -exit App::annex_review_unused->main; +use App::git_annex_reviewunused; +exit App::git_annex_reviewunused->main; diff --git a/lib/App/annex_review_unused.pm b/lib/App/git_annex_reviewunused.pm index dd2ed23..175d7a0 100644 --- a/lib/App/annex_review_unused.pm +++ b/lib/App/git_annex_reviewunused.pm @@ -1,4 +1,4 @@ -package App::annex_review_unused; +package App::git_annex_reviewunused; # ABSTRACT: interactively process 'git annex unused' output # # Copyright (C) 2019-2020 Sean Whitton <spwhitton@spwhitton.name> @@ -33,7 +33,7 @@ CORE::exit main unless caller; =func main -Implementation of annex-review-unused(1). Please see documentation +Implementation of git-annex-reviewunused(1). Please see documentation for that command. Normally takes no arguments and responds to C<@ARGV>. If you want to diff --git a/t/24_annex-review-unused.t b/t/24_git-annex-reviewunused.t index 4947455..b84b608 100755 --- a/t/24_annex-review-unused.t +++ b/t/24_git-annex-reviewunused.t @@ -5,7 +5,7 @@ use strict; use warnings; use lib 't/lib'; -use App::annex_review_unused; +use App::git_annex_reviewunused; use Test::More; use t::Setup; use t::Util; @@ -21,13 +21,13 @@ with_temp_annexes { { local $CWD = "source1"; - (undef, undef, $exit) = run_bin "annex-review-unused"; + (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(annex-review-unused --just-print); + ($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"; |