lib/CPAN/t/mirroredby.t

   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' );