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

use utf8;

use MyChaos;

plan tests => 1 * blocks;

run {
    my $block = shift;

    my $req = $block->args;
    use Data::Dumper;
#     diag Dumper($req);

    is_deeply($req->params, $block->expected );
}

__END__
=== one
--- args request
params:
  hoge: hoge
  bar:  foo
--- expected yaml
hoge: hoge
bar:  foo