view release on metacpan or  search on metacpan

t/01-client.t  view on Meta::CPAN

my $entry = XML::Atom::Entry->new;
$entry->title('Foo');
$req = req_post($entry->as_xml);
client_good()->munge_request($req);
$res = request $req;
is $res->code, 201;
my $entry2 = XML::Atom::Entry->new( \$res->content );
isa_ok $entry2, 'XML::Atom::Entry';
is $entry2->title, 'Bar';

sub req_get { HTTP::Request->new( GET => '/' ) }

sub req_post {
    my $req = HTTP::Request->new( POST => '/' );
    $req->content_type('application/x.atom+xml');
    my $xml = $_[0];
    $req->content_length(length $xml);
    $req->content($xml);
    $req;
}

sub client_good {
    my $client = XML::Atom::Client->new;
    $client->username('foo');