root/lang/perl/WebService-Simple/trunk/t/01_basic.t

use strict;
use Test::More;

my ($flickr_api_key);
BEGIN
{
    $flickr_api_key = $ENV{FLICKR_API_KEY};
    if (! $flickr_api_key ) {
        plan( skip_all => "Please set FLICKR_API_KEY to enable this test" );
    } else {
        plan( tests => 13 );
    }

    use_ok("WebService::Simple");
}

{
    my $simple = WebService::Simple->new(
        base_url => "http://api.flickr.com/services/rest/",
        params   => {
            api_key => $flickr_api_key
        }
    );

    ok($simple, "object created ok");
    isa_ok( $simple, "WebService::Simple", "object isa WebService::Simple" );
    ok( $simple->response_parser, "parser ok" );
    isa_ok( $simple->response_parser, "WebService::Simple::Parser::XML::Simple", "parser isa WebService::Simple::Parser::XML::Simple" );

    my $response = $simple->get( { method => "flickr.test.echo", name => "value" } );

    ok( $response );
    isa_ok( $response, "WebService::Simple::Response" );

    my $h = $response->parse_response;
    ok($h);
    isa_ok($h, 'HASH');

    is( $h->{name}, 'value' );

    # Make sure the response is NOT cached by default
    {
        my $tmp = $simple->get( { method => "flickr.test.echo", name => "value" } );
        isnt( $tmp, $response, "response is NOT cached ($response <=> $tmp)" );
    }
}

SKIP: {
    eval { require Cache::Memory };
    if ($@) {
        skip(2, "Cache::Memory not installed");
    }

    my $called = 0;
    my $simple = WebService::Simple->new(
        base_url => "http://api.flickr.com/services/rest/",
        params   => {
            api_key => $flickr_api_key
        },
        cache => {
            module => 'Cache::Memory',
        }
    );

    my $response;
    for (1..3) {
        my $tmp = $simple->get( { method => "flickr.test.echo", name => "value" } );
        if ($response) {
            is( $tmp, $response, "got cached $response" );
        } else {
            $response = $tmp;
        }
    }
}