The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use Amon2::Web::Request;
use URI::Escape;
use Encode;
use Test::More;
use Amon2;

{
    package MyApp;
    use parent qw/Amon2/;
    use Test::More;
    sub load_config {+{
        'Foo' => {
            bar => 'baz',
        },
    }}
    local $SIG{__WARN__} = sub { }; # add_config method outputs deprecated warnigns
    __PACKAGE__->add_config(
        'Foo' => {
            'hoge' => 'fuga',
        },
    );
    is_deeply(__PACKAGE__->config->{'Foo'}, +{ 'hoge' => 'fuga', 'bar' => 'baz'});
    __PACKAGE__->add_config(
        'Foo' => {
            bar => 'new',
        },
    );
    is_deeply(__PACKAGE__->config->{'Foo'}, +{ 'hoge' => 'fuga', 'bar' => 'new'});
}

done_testing;