view release on metacpan or  search on metacpan

t/rest/user.t  view on Meta::CPAN

use Test::More;

use strict;
use warnings;

use HTTP::Request::Common;
use JSON;

use lib qw(t/lib);

use Test::WWW::Mechanize::Catalyst 'MyApp';

my $mech = Test::WWW::Mechanize::Catalyst->new();

$mech->add_header('Accept' => 'application/json');

for (0..1) {
    my $inline = $_ ? 'inline' : '';
    $mech->get_ok("/${inline}users", undef, 'request list of users');

    ok(my $json = JSON::decode_json($mech->content), 'response is JSON response');

    is($json->{results}, 0, 'no results');

    my $res = $mech->request(POST "/${inline}user", [name => 'bar', password => 'foo']);

    ok($json = JSON::decode_json($res->content), 'response is JSON response');

    is($json->{success}, JSON::true, 'submission was successful');

    is($res->header('location'), "http://localhost/${inline}user/1", 'user location is set');

    $mech->get_ok("/${inline}users", undef, 'request list of users');

    ok($json = JSON::decode_json($mech->content), 'response is JSON response');

    is($json->{results}, 1, 'one results');

    $mech->get("/${inline}user/999");

    ok($json = JSON::decode_json($mech->content), 'response is JSON response');

    ok(exists $json->{success}, 'success exists');

    ok(!$json->{success}, 'success is false');

    $mech->get_ok("/${inline}user/1", undef, 'get user 1');

    ok($json = JSON::decode_json($mech->content), 'response is JSON response');

    is($json->{data}->{name}, 'bar', 'user name is "bar"');

    my $request = POST "/${inline}user/1", [name => 'bas', password => 'foo'];
    $request->method('PUT');  # don't use PUT directly because it won't pick up the form parameters

    ok($mech->request($request), 'change user name');

    ok($json = JSON::decode_json($mech->content), 'response is JSON response');

    is($json->{success}, JSON::true, 'change was successful');

    is($json->{data}->{name}, 'bas', 'user name has changed');

    $request = POST "/${inline}user", [id => 1, name => 'bast', password => 'foo'];
    $request->method('PUT');  # don't use PUT directly because it won't pick up the form parameters