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

use Test::More tests => 1;

use Chaostr::Service::Test;
use PseudoRequest;

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

my $req = PseudoRequest->new({
    params => {
        foo => 'vkgtaaaaaaaaaarooooooooooo',
    }
});

$service->request($req);

$service->log->warn({hoge => 'fooooo'});
$service->hoge;

if ( $service->validate->has_error ) {
    warn $service->errstr;
   for my $key ( keys %{$service->validate->error_message} ) {
        warn $service->validate->error_message->{$key};
    }
}

$service->request_destroy;

ok 1;