use strict;
use warnings;

use Test::More;

plan tests => 3;

use Net::HTTP::Spore;
use JSON;

my $api = {
    base_url => "http://term.ie/oauth/example",
    name     => "term.ie",
    methods  => {
        echo => {
            path            => "/echo_api.php",
            method          => "GET",
            expected_status => [200],
            authentication => 1,
        }
    },
};

SKIP: {
    skip "require RUN_HTTP_TEST", 3 unless $ENV{RUN_HTTP_TEST};

    my $client = Net::HTTP::Spore->new_from_string( JSON::encode_json($api) );

    $client->enable(
        'Auth::OAuth',
        consumer_key    => 'key',
        consumer_secret => 'secret',
        token           => 'accesskey',
        token_secret    => 'accesssecret',
    );

    ok my $r = $client->echo(method => 'foo', bar => 'baz');
    is $r->status, 200;
    like $r->body, qr/bar=baz&method=foo/;
}