Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6e89fe307f
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (26 sloc) 1.013 kb
## To use this, you must have HTTP::Easy.
## Run the "examples/test.p6" on HTTP::Easy before running this.
## When connections to the outside world aren't so screwed up in Rakudo nom
## this will move to using proper sites again.
use v6;
BEGIN { @*INC.unshift: './lib'; }
use HTTP::Client;
use Test;
plan 5;
my $http =;
#my $res = $htto.get('');
my $req = $;
$req.add-field(:query<libwww-perl>, :mode<dist>);
my $res = $;
#$*ERR.say: "~Status: "~$res.status;
#$*ERR.say: "~Message: "~$res.message;
#$*ERR.say: "~Proto: "~$res.protocol;
ok $res, "Constructed result object from direct get() call.";
ok $res.success, "Result was successful.";
my $content = $res.content;
#$*ERR.say: "~Content: $content";
#$*ERR.say: "~Headers: "~$res.headers.perl;
ok $content, "Content was returned.";
is $content, 'Hello World', "Content was correct.";
is $res.header('Content-Type'), 'text/plain', "Correct content type.";
Jump to Line
Something went wrong with that request. Please try again.