BLAH

Perl-Critic · Feb 23, 2024 · e989aed · e989aed
1 parent 477beb9
commit e989aed
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/xt/DepReqs.pm b/xt/DepReqs.pm
@@ -8,6 +8,7 @@ use Test::DependentModules;
 use IO::All;
 use MetaCPAN::Client;
 use List::Util 'uniqstr';
+use Devel::Confess;
 
 1;
 
@@ -31,10 +32,24 @@ sub run {    # synch with dependent-modules.t
         |Acme-ReturnValue|Bot-BasicBot-Pluggable-Module-Gitbot|Pinwheel
         |Dist-Zilla-Plugin-MetaProvides-Package|Dist-Zilla-Plugin-Readme-Brief
         |Apache2-PPI-HTML
+        # author parsing issue
+        |Spellunker-Perl
+        # takes too long
+        |RPerl
     )$/x
     };
     { no warnings 'redefine'; *MetaCPAN::Client::fetch = $old_fetch; }
 
+    # test early that all modules don't have an author that crashes tests later
+    Test::DependentModules::_load_cpan;
+    for my $name (@deps) {
+        my $mod = $name;
+        $mod =~ s/-/::/g;
+        next unless    #
+          my $dist = Test::DependentModules::_get_distro($mod);
+        $dist->author->id;
+    }
+
     my $c = MetaCPAN::Client->new;
     my @reqs;
     for my $dependent (@deps) {

diff --git a/xt/dependent-modules.t b/xt/dependent-modules.t
@@ -3,6 +3,7 @@ use strictures 2;
 
 use Test::DependentModules 'test_all_dependents';
 use MetaCPAN::Client;
+use Devel::Confess;
 
 # synch with DepReqs.pm
 
@@ -31,6 +32,10 @@ test_all_dependents PPI => {
         |Acme-ReturnValue|Bot-BasicBot-Pluggable-Module-Gitbot|Pinwheel
         |Dist-Zilla-Plugin-MetaProvides-Package|Dist-Zilla-Plugin-Readme-Brief
         |Apache2-PPI-HTML
+        # author parsing issue
+        |Spellunker-Perl
+        # takes too long
+        |RPerl
     )$/x
 };