blob: 900d3e8cb881ac4c038d4982abf78f4149e5458a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
use Test::More;
use LWP;
use CPAN::Mini::Inject;
use lib 't/lib';
BEGIN {
eval "use CPANServer";
plan skip_all => "HTTP::Server::Simple required to test update_mirror"
if $@;
plan tests => 3;
}
my $server = CPANServer->new( 11027 );
my $pid = $server->background;
ok( $pid, 'HTTP Server started' );
# Give server time to get going.
sleep 1;
$SIG{__DIE__} = sub { kill( 9, $pid ) };
my $mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg( 't/.mcpani/config' )->parsecfg;
$mcpi->testremote;
is( $mcpi->{site}, 'http://localhost:11027/', 'Correct remote URL' );
$mcpi->loadcfg( 't/.mcpani/config_badremote' )->parsecfg;
SKIP: {
skip 'Test fails with funky DNS providers', 1
if can_fetch( 'http://blahblah' );
# This fails with OpenDNS &c
$mcpi->testremote;
is( $mcpi->{site}, 'http://localhost:11027/',
'Selects correct remote URL' );
}
kill( 9, $pid );
unlink( 't/testconfig' );
sub can_fetch { LWP::UserAgent->new->get( shift )->is_success }
|