view release on metacpan or  search on metacpan

t/05_kwalitee.t  view on Meta::CPAN

use strict;
use warnings;
use lib 't/lib';
use Test::More 0.88;
use Acme::CPANAuthors;

SKIP: {
  my $kwalitee = eval { Acme::CPANAuthors->kwalitee('ISHIGAKI') };
  if ($@) {
    skip "API server seems down; sorry for the inconvenience", 3;
  }
  ok ref $kwalitee eq 'HASH' && %$kwalitee;
  ok $kwalitee->{info},          "has info";
  ok $kwalitee->{distributions}, "has distributions";
}

done_testing;