#!/usr/bin/env perl

use Test::More tests => 14;

BEGIN {
    use_ok('LWP::UserAgent');
    use_ok('HTML::TokeParser::Simple');
    use_ok('HTML::Entities');
    use_ok('overload');
    use_ok('Class::Data::Accessor');
	use_ok( 'WWW::LimerickDB' );
}

diag( "Testing WWW::LimerickDB $WWW::LimerickDB::VERSION, Perl $], $^X" );

can_ok( 'WWW::LimerickDB', qw/
        new
        get_limerick
        get_top
        get_bottom
        get_latest
        get_random
        get_high_random
        error
        limerick
        limericks
        ua
        new_line
        get_cached
        _get
        _parse_quotes
        _set_error
    /
);

my $lime = WWW::LimerickDB->new;

isa_ok($lime, 'WWW::LimerickDB');
isa_ok($lime->ua, 'LWP::UserAgent');

my $quote = $lime->get_limerick(288);

SKIP: {
    unless ( defined $quote ) {
        diag "Fetching error: " . $lime->error;
        ok( length($lime->error), "We got error from error method" );
        skip "Network error", 4;
    }

    my $VAR1 = {
            "number" => 288,
            "text" => "There once was a priest from Morocco \nWho's motto was really quite macho \nHe said \"To be blunt \nGod decreed we eat cunt. \nWhy else would it look like a taco?\"",
            "rating" => 42
    };

    is( $lime->limerick->{text}, "$lime", 'overload of limerick()');
    #is_deeply( $lime->limerick, $VAR1, "fetched matches expected" );
    is( $lime->limerick->{text}, $VAR1->{text}, 'fetched text matches' );
    is( $lime->limerick->{number}, $VAR1->{number}, 'fetched number matches' );
    like( $lime->limerick->{rating}, qr/^-?\d+$/, 'fetched rating matches' );
    
    is_deeply( $lime->limerick, $quote, "return of get_limerick() matches expected");
}