use strict;
use warnings;

use Test::More;

plan tests => 2;

use Net::HTTP::Spore;

SKIP: {
    skip "require RUN_HTTP_TEST", 2 unless $ENV{RUN_HTTP_TEST};
    my $client = Net::HTTP::Spore->new_from_string(
        '{
    "base_url" : "http://fperrad.googlepages.com",
      "name"   : "googlepages",
      "methods"
      : { "get_home"
        : { "path" : "/home", "method" : "GET", "expected_status" : [200] } }
    }');

    $client->enable('Redirection');

    my $r = $client->get_home();
    is $r->status, 200;
    is $r->request->uri,
      'http://sites.google.com/site/fperrad/home';
}