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 lib "BUNDLE";
  12 use Test::More tests => 6;
  13
  14 use_ok( 'CPAN::FirstTime' );
  15 can_ok( 'CPAN::Mirrored::By', 'new', 'continent', 'country', 'url' );
  16 my $cmb = CPAN::Mirrored::By->new();
  17 isa_ok( $cmb, 'CPAN::Mirrored::By' );
  18
  19 @$cmb = qw( continent country url );
  20 is( $cmb->continent(), 'continent',
  21         'continent() should return continent entry' );
  22 is( $cmb->country(), 'country', 'country() should return country entry' );
  23 is( $cmb->url(), 'url', 'url() should return url entry' );
  24
  25 __END__
  26 # Local Variables:
  27 # mode: cperl
  28 # cperl-indent-level: 2
  29 # End: