diff options
Diffstat (limited to 'cpan/CPAN/t')
| -rw-r--r-- | cpan/CPAN/t/11mirroredby.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/cpan/CPAN/t/11mirroredby.t b/cpan/CPAN/t/11mirroredby.t index 840dfa3a51..42b359d97e 100644 --- a/cpan/CPAN/t/11mirroredby.t +++ b/cpan/CPAN/t/11mirroredby.t @@ -13,14 +13,20 @@ use Test::More tests => 6; use_ok( 'CPAN::FirstTime' ); can_ok( 'CPAN::Mirrored::By', 'new', 'continent', 'country', 'url' ); -my $cmb = CPAN::Mirrored::By->new(); +my $cmb = CPAN::Mirrored::By->new( + { + continent => "continent", + country => "country", + http => "http", + ftp => "ftp", + } +); isa_ok( $cmb, 'CPAN::Mirrored::By' ); -@$cmb = qw( continent country url ); is( $cmb->continent(), 'continent', 'continent() should return continent entry' ); is( $cmb->country(), 'country', 'country() should return country entry' ); -is( $cmb->url(), 'url', 'url() should return url entry' ); +is( $cmb->url(), 'http', 'url() should return best url entry' ); __END__ # Local Variables: |