### ----------------------------------------------------
### -- HTTP::UserAgent
### -- Licenses: MIT
### -- Authors: Filip Sergot
### -- File: t/150-issue-64.rakutest
### ----------------------------------------------------
use Test;

use HTTP::UserAgent;

plan 3;

unless %*ENV<NETWORK_TESTING> {
  diag "NETWORK_TESTING was not set";
  skip-rest("NETWORK_TESTING was not set");
  exit;
}

my $purl = 'http://purl.org/dc/elements/1.1/';

my $ua = HTTP::UserAgent.new( useragent => "firefox_linux" );

my HTTP::Response $resp;

lives-ok { $resp = $ua.get($purl) }, "make request to '$purl' lives";
ok($resp.is-success, "request was successful");

ok($resp.content.defined, "and got some content back");

# vim: expandtab shiftwidth=4


