view release on metacpan or  search on metacpan

t/path.t  view on Meta::CPAN

use Test::More tests => 269;
use Data::Dumper;

use CPAN::DistnameInfo;

local $/ ="";

while(<DATA>) {
  chomp;
  my($file,%exp) = split(/[\t\n]+/, $_);
  $exp{pathname} = $file;
  my $d = CPAN::DistnameInfo->new($file);
  my %got = $d->properties;
  while (my($k, $v) = each %got) {
    is($d->$k(), $v);
  }