use strict;
use warnings;
use utf8;
use FindBin;
use File::Spec;
use lib (
    File::Spec->catfile( $FindBin::Bin, '..', 't', 'lib'),
);

use MyChaos;
use Chaostr::Service::Users;

my $service = Chaostr::Service::Users->new();

plan tests => 1 * blocks;

run {
    my $block = shift;

    $service->request($block->args);
    my $method = $block->method;
    $service->$method;

    ok $service->db->resultset('Users')->single({ name => $block->expected });
}

__END__
=== create
--- method chomp
create
--- args request
params:
  username: vkgtaro
  password: hogehoge
  mail:     vkg.taro@gmail.com
--- expected chomp
vkgtaro