#!/usr/bin/perl -w
use strict;
use Test::More tests => 16;
use Parse::CPAN::Distributions;
my @list;
{
my $obj = Parse::CPAN::Distributions->new(file => 't/samples/find-ls-test.txt');
isa_ok($obj,'Parse::CPAN::Distributions');
ok( $obj->listed('Test-FileA'));
ok(!$obj->listed('Test-FileA','0.01'));
ok( $obj->listed('Test-FileB'));
ok(!$obj->listed('Test-FileB','0.01'));
@list = $obj->distributions_by('BARBIE'); is(scalar(@list),2);
@list = $obj->distributions_by('EIBRAB'); is(scalar(@list),0);
is($obj->latest_version('Test-FileA'),'');
is($obj->latest_version('Test-FileB'),'');
@list = $obj->versions('Test-FileA'); is(scalar(@list),1);
@list = $obj->versions('Test-FileA','BARBIE'); is(scalar(@list),1);
@list = $obj->versions('Test-FileB'); is(scalar(@list),1);
@list = $obj->versions('Test-FileB','BARBIE'); is(scalar(@list),1);
is($obj->author_of('Test-FileA',''),'BARBIE');
is($obj->author_of('Test-FileB',''),'BARBIE');
is($obj->author_of('Test-FileB'),undef);
}