Commit | Line | Data |
d93d2cac |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
4 | if ($ENV{PERL_CORE}) { |
5 | chdir 't' if -d 't'; |
6 | unshift @INC, '../lib'; |
7 | } |
8 | } |
9 | |
10 | use strict; |
11 | use Test::More tests => 6; |
12 | |
13 | use_ok( 'CPAN::FirstTime' ); |
14 | can_ok( 'CPAN::Mirrored::By', 'new', 'continent', 'country', 'url' ); |
15 | my $cmb = CPAN::Mirrored::By->new(); |
16 | isa_ok( $cmb, 'CPAN::Mirrored::By' ); |
17 | |
18 | @$cmb = qw( continent country url ); |
19 | is( $cmb->continent(), 'continent', |
20 | 'continent() should return continent entry' ); |
21 | is( $cmb->country(), 'country', 'country() should return country entry' ); |
22 | is( $cmb->url(), 'url', 'url() should return url entry' ); |