view release on metacpan or  search on metacpan

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

use Test::More;

use strict;
use warnings;

use HTTP::Request::Common;
use File::Spec;
use JSON;

use lib qw(t/lib);

use TestSchema;
use MyApp;

my $schema = MyApp->model('DBIC')->schema;

foreach my $i (1..200) {
    $schema->resultset('User')->create({name => sprintf('%04d', $i), password => 'password'.sprintf('%04d', 200-$i)});   
}

is($schema->resultset('User')->count, 200, '200 users in db');


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 (/users)');

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

    is(@{$json->{data}}, 200, '200 data');

    is($json->{results}, 200, '200 data');

    $mech->get_ok('/user', undef, 'request list of users (/user)');

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

    is(@{$json->{data}}, 200, '200 data');

    is($json->{results}, 200, '200 data');

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

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

    is(@{$json->{data}}, 190, '190 data');

    is($json->{results}, 200, '200 data');

    $mech->get_ok("/${inline}users?start=10&limit=20", undef, 'request list of users');

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

    is(@{$json->{data}}, 20, '20 data');

    is($json->{results}, 200, '200 data');

    $mech->get_ok("/${inline}users?start=10&limit=20&sort=name", undef, 'request list of users');

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