#!/usr/bin/perl

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 5;
use File::Spec::Functions ':ALL';
use Perl::Dist::Asset::File;





#####################################################################
# Main Tests

my $file1 = Perl::Dist::Asset::File->new(
	share      => 'Perl-Dist default/perl-5.8.8/lib/CPAN/Config.pm.tt',
	install_to => 'CPAN/Config.pm',
);
isa_ok( $file1, 'Perl::Dist::Asset::File' );
is( $file1->share, 'Perl-Dist default/perl-5.8.8/lib/CPAN/Config.pm.tt', '->share ok' );
is( $file1->install_to, 'CPAN/Config.pm', '->install_to ok' );
like( $file1->url, qr/Config.pm.tt$/, '->url' );
is( $file1->file, 'Config.pm.tt', '->file ok' );