diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2009-12-18 12:47:08 -0500 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-12-18 12:47:08 -0500 |
| commit | 0124e6951248925eb02487d9823d46be100b0e91 (patch) | |
| tree | ebbce67360b172514c309e3ce2675124deb621ae /cpan/CPAN/t | |
| parent | 587808146dcf7a2a909b351c4c32085e6fcb74dc (diff) | |
| download | perl-0124e6951248925eb02487d9823d46be100b0e91.tar.gz | |
Import CPAN.pm 1.94_53 from CPAN
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: |