use strict;
use warnings;

use Test::More tests => 5;
BEGIN {
    use_ok('WWW::Prefetcher');
};

my $errors = 0;
my @pages;
my $prefetcher = WWW::Prefetcher->new( {
    on_error => sub { $errors++ },
    timeout => 180,
    before => sub { push @pages, ${ $_[0] } },
    user_agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.4) Gecko/2008111317 Ubuntu/8.04 (hardy) Firefox/3.0.4',
} );
ok $prefetcher, 'obj defined';
isa_ok $prefetcher, 'WWW::Prefetcher';

$prefetcher->process(\'http://blog.agentzh.org');

is "\n" . join("\n", @pages) . "\n", "
http://blog.agentzh.org
http://blog.agentzh.org/blog.css
http://blog.agentzh.org/styles.css
http://blog.agentzh.org/themes/common/base-weblog.css
http://blog.agentzh.org/themes/common/tipjar.css
http://blog.agentzh.org/themes/lilia/theme-bluecrush.css
http://blog.agentzh.org/themes/common/print.css
";
is $errors, 0, 'no error occurred';