#!/usr/bin/perl
# Compile testing for Mirror::YAML
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 9;
use File::Spec::Functions ':ALL';
use Mirror::YAML;
use LWP::Online 'online';
# Basic construction
my $simple_file = catfile('t', 'data', 'simple.yaml');
ok( -f $simple_file, "Found test file" );
my $simple_conf = Mirror::YAML->read($simple_file);
isa_ok( $simple_conf, 'Mirror::YAML' );
is( $simple_conf->name, 'JavaScript Archive Network', '->name ok' );
isa_ok( $simple_conf->uri, 'URI' );
is( $simple_conf->timestamp, 1168895872, '->timestamp ok' );
ok( $simple_conf->age, '->age ok' );
# Fetch URIs
SKIP: {
skip("Not online", 1) unless online;
my $rv = $simple_conf->check_mirrors;
ok( $rv, '->get_all ok' );
# Get some mirrors
my @m = $simple_conf->select_mirrors;
ok( scalar(@m), 'Got at least 1 mirror' );
isa_ok( $m[0], 'URI', 'Got at least 1 URI object' );
}
exit(0);