diff options
author | Chris Williams <chris@bingosnet.co.uk> | 2009-09-08 11:02:09 +0100 |
---|---|---|
committer | Chris Williams <chris@bingosnet.co.uk> | 2009-09-08 11:02:40 +0100 |
commit | 087f1bf3a29bd837d3103a3637ea69e4499ca06b (patch) | |
tree | b078f6dae5d32df12ffa5d57eb144011f5c4a577 /lib/CPAN/t/11mirroredby.t | |
parent | 78aea6ff0e955611046c1fb2753712ada736b2e7 (diff) | |
download | perl-087f1bf3a29bd837d3103a3637ea69e4499ca06b.tar.gz |
Move CPAN from lib/ to ext/
Diffstat (limited to 'lib/CPAN/t/11mirroredby.t')
-rw-r--r-- | lib/CPAN/t/11mirroredby.t | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/lib/CPAN/t/11mirroredby.t b/lib/CPAN/t/11mirroredby.t deleted file mode 100644 index 840dfa3a51..0000000000 --- a/lib/CPAN/t/11mirroredby.t +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -w - -BEGIN { - if ($ENV{PERL_CORE}) { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - } -} - -use strict; -use lib "BUNDLE"; -use Test::More tests => 6; - -use_ok( 'CPAN::FirstTime' ); -can_ok( 'CPAN::Mirrored::By', 'new', 'continent', 'country', 'url' ); -my $cmb = CPAN::Mirrored::By->new(); -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' ); - -__END__ -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# End: |