#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
use LWP::Online ':skip_all';
use Test::More tests => 7;
use File::Spec::Functions ':ALL';
use HTTP::Client::Parallel qw{ mirror get };
my $client = HTTP::Client::Parallel->new;
isa_ok( $client, 'HTTP::Client::Parallel' );
# get
if ( 0 ) {
        my $responses = $client->get(
                'http://www.google.com',
                'http://www.yapc.org',
                'http://www.yahoo.com',
        );
        warn Dumper( $responses );
}
# Regular fetching via the object
SCOPE: {
        my $responses = $client->get(
                'http://www.google.com/',
        );
        is( ref($responses), 'ARRAY', 'Got an array ref' );
        is( scalar(@$responses), 1, 'Got a single element' );
        isa_ok( $responses->[0], 'HTTP::Response' );
}
# Shorthand version
SCOPE: {
        my $responses = get(
                'http://www.google.com/',
        );
        is( ref($responses), 'ARRAY', 'Got an array ref' );
        is( scalar(@$responses), 1, 'Got a single element' );
        isa_ok( $responses->[0], 'HTTP::Response' );
}