use Test::More 'no_plan';
 
use File::Spec::Functions;
use Test::Output;
 
my $class  = 'CPAN::PackageDetails';
my $method = 'read';
 
use_ok( $class );
can_ok( $class, $method );
 
my $file = catfile( qw(t test_files 02packages.details.txt.gz) );
ok( -e $file, "Test file $file exists" );
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# Test with single, good argument to read
{
my $lines = 1439;
 
my $package_details = $class->$method( $file );
 
isa_ok( $package_details, $class );
is( $package_details->source_file, $file, "Get back the right filename");
 
# test with the top level
# these are values taken from the input file
is( $package_details->file, '02packages.details.txt', 
	'file field reports right value from top level' 
	);
is( $package_details->url, 'http://www.perl.com/CPAN/modules/02packages.details.txt', 
	'url field reports right value from top level'  );
 
is( $package_details->count, $lines, 
	'line field reports right value from top level'  );
 
is( $package_details->line_count, $lines,
	"Entries has the right number of elements from delegate level");
 
# test with the delegate level
# these are values taken from the input file
my $header = $package_details->header;
 
is( $header->file, '02packages.details.txt', 
	'file field reports right value from delegate level' 
	);
is( $header->url, 'http://www.perl.com/CPAN/modules/02packages.details.txt', 
	'url field reports right value from delegate level'  );
 
is( $header->line_count, $lines, 
	'line field reports right value from delegate level'  );
 
my $entries = $package_details->entries;
is( $entries->count, $lines, 
	"Entries has the right number of elements from delegate level");
}
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# Test with no arguments to read - should fail
stderr_like
	{ $class->$method() }
	qr/Missing argument!/,
	"$method carps when I don't give it an argument";
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# Test with a single bad argument to read (missing file) - should fail
{
my $missing_file = 'fooey.gz';
ok( ! -e $missing_file, "Missing file is not there" );
 
stderr_like
	{ $class->$method( $missing_file  ) }
	qr/Could not open/,
	"$method carps when I don't give it an argument";
}