Version 0.50

[chaz/git-codeowners] / lib / Test / File / Codeowners.pm

diff --git a/lib/Test/File/Codeowners.pm b/lib/Test/File/Codeowners.pm
deleted file mode 100644 (file)
index 0679e6b..0000000
--- a/lib/Test/File/Codeowners.pm
+++ /dev/null
@@ -1,141 +0,0 @@
-package Test::File::Codeowners;
-# ABSTRACT: Write tests for CODEOWNERS files
-
-
-use warnings;
-use strict;
-
-use App::Codeowners::Util qw(find_nearest_codeowners git_ls_files git_toplevel);
-use Encode qw(encode);
-use File::Codeowners;
-use Test::Builder;
-
-our $VERSION = '0.49'; # VERSION
-
-my $Test = Test::Builder->new;
-
-sub import {
-    my $self = shift;
-    my $caller = caller;
-    no strict 'refs';   ## no critic (TestingAndDebugging::ProhibitNoStrict)
-    *{$caller.'::codeowners_syntax_ok'} = \&codeowners_syntax_ok;
-    *{$caller.'::codeowners_git_files_ok'} = \&codeowners_git_files_ok;
-
-    $Test->exported_to($caller);
-    $Test->plan(@_);
-}
-
-
-sub codeowners_syntax_ok {
-    my $filepath = shift || find_nearest_codeowners();
-
-    eval { File::Codeowners->parse($filepath) };
-    my $err = $@;
-
-    $Test->ok(!$err, "Check syntax: $filepath");
-    $Test->diag($err) if $err;
-}
-
-
-sub codeowners_git_files_ok {
-    my $filepath = shift || find_nearest_codeowners();
-
-    $Test->subtest('codeowners_git_files_ok' => sub {
-        my $codeowners = eval { File::Codeowners->parse($filepath) };
-        if (my $err = $@) {
-            $Test->plan(tests => 1);
-            $Test->ok(0, "Parse $filepath");
-            $Test->diag($err);
-            return;
-        }
-
-        my ($proc, @files) = git_ls_files(git_toplevel());
-
-        $Test->plan($proc->wait == 0 ? (tests => scalar @files) : (skip_all => 'git ls-files failed'));
-
-        for my $filepath (@files) {
-            my $msg = encode('UTF-8', "Check file: $filepath");
-
-            my $match = $codeowners->match($filepath);
-            my $is_unowned = $codeowners->is_unowned($filepath);
-
-            if (!$match && !$is_unowned) {
-                $Test->ok(0, $msg);
-                $Test->diag("File is unowned\n");
-            }
-            elsif ($match && $is_unowned) {
-                $Test->ok(0, $msg);
-                $Test->diag("File is owned but listed as unowned\n");
-            }
-            else {
-                $Test->ok(1, $msg);
-            }
-        }
-    });
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Test::File::Codeowners - Write tests for CODEOWNERS files
-
-=head1 VERSION
-
-version 0.49
-
-=head1 SYNOPSIS
-
-    use Test::More;
-
-    eval 'use Test::File::Codeowners';
-    plan skip_all => 'Test::File::Codeowners required for testing CODEOWNERS' if $@;
-
-    codeowners_syntax_ok();
-    done_testing;
-
-=head1 DESCRIPTION
-
-This package has assertion subroutines for testing F<CODEOWNERS> files.
-
-=head1 FUNCTIONS
-
-=head2 codeowners_syntax_ok
-
-    codeowners_syntax_ok();     # search up the tree for a CODEOWNERS file
-    codeowners_syntax_ok($filepath);
-
-Check the syntax of a F<CODEOWNERS> file.
-
-=head2 codeowners_git_files_ok
-
-    codeowners_git_files_ok();  # search up the tree for a CODEOWNERS file
-    codeowners_git_files_ok($filepath);
-
-=head1 BUGS
-
-Please report any bugs or feature requests on the bugtracker website
-L<https://github.com/chazmcgarvey/git-codeowners/issues>
-
-When submitting a bug or request, please include a test-file or a
-patch to an existing test-file that illustrates the bug or desired
-feature.
-
-=head1 AUTHOR
-
-Charles McGarvey <chazmcgarvey@brokenzipper.com>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2019 by Charles McGarvey.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut