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);
  }
  ok(eq_hash(\%got, \%exp))
    or print "\n",Data::Dumper->Dump([\%exp,\%got],[qw(expected got)]);
}


__DATA__
CPAN/authors/id/J/JA/JAMCC/ngb-101.zip
	filename	ngb-101.zip
	dist		ngb
	maturity	released
	distvname	ngb-101
	version		101
	cpanid		JAMCC
	extension	zip

CPAN/authors/id/J/JS/JSHY/DateTime-Fiscal-Year-0.01.tar.gz
	filename	DateTime-Fiscal-Year-0.01.tar.gz
	dist		DateTime-Fiscal-Year
	maturity	released
	distvname	DateTime-Fiscal-Year-0.01
	version		0.01
	cpanid		JSHY
	extension	tar.gz

CPAN/authors/id/G/GA/GARY/Math-PRSG-1.0.tgz
	filename	Math-PRSG-1.0.tgz
	dist		Math-PRSG
	maturity	released
	distvname	Math-PRSG-1.0
	version		1.0
	cpanid		GARY
	extension	tgz

CPAN/authors/id/G/GA/GARY/Math-BigInteger-1.0.tar.gz
	filename	Math-BigInteger-1.0.tar.gz
	dist		Math-BigInteger
	maturity	released
	distvname	Math-BigInteger-1.0
	version		1.0
	cpanid		GARY
	extension	tar.gz

CPAN/authors/id/T/TE/TERRY/VoiceXML-Server-1.6.tar.gz
	filename	VoiceXML-Server-1.6.tar.gz
	dist		VoiceXML-Server
	maturity	released
	distvname	VoiceXML-Server-1.6
	version		1.6
	cpanid		TERRY
	extension	tar.gz