view release on metacpan or  search on metacpan

t/distribution.t  view on Meta::CPAN

isa_ok ( $distro{existing_filename}->metadata, 'CPAN::Meta' );

my $fakepan = CPAN::Faker::HTTPD->new({ source => '.' });
$fakepan->add_dist($fake_distro);

$fakepan->$_ for qw(_update_author_checksums write_package_index
                 write_author_index write_modlist_index write_perms_index);

my $distro_path = 'authors/id/L/LO/LOCAL/Foo-Bar-0.01.tar.gz';
my $distro_uri = $fakepan->endpoint;
$distro_uri->path($distro_path);
$distro_uri = $distro_uri->as_string;

$distro{uri} = $distribution_class->new( uri => $distro_uri );

isa_ok ( $distro{uri}, 'CPAN::Local::Distribution' );

is ( $distro{uri}->authorid, 'LOCAL', 'calculate authorid from uri' );

is ( $distro{uri}->path, $distro_path, 'calculate distro path from uri' );