use strict;
use warnings;
use Test::More import => ['!pass'];

{

    package App;
    use Dancer2;

    any [ 'get', 'post' ] => '/test' => sub {
        request->method;
    };

    any '/all' => sub {
        request->method;
    };
}

use Dancer2::Test apps => ['App'];

my $r = dancer_response( POST => '/test' );
is $r->content, 'POST';

$r = dancer_response( GET => '/test' );
is $r->content, 'GET';

for my $method (qw(GET POST PUT DELETE OPTIONS PATCH)) {
    my $r = dancer_response( $method => '/all' );
    is $r->content, $method;
}

done_testing;
