use strict;
use warnings;
use Test::More;
use Kelp::Module::Config;
# Merge different
{
    my $H = {};
    my $A = [];
    my @arr = (
        [1, 2, 2],
        [1, undef, undef],
        [1, $H, $H],
        [1, $A, $A],
        [undef, 1, 1],
        [undef, undef, undef],
        [$H, $A, $A],
        [$A, $H, $H]
    );
    _try(@arr);
}
# Overwrite
{
    my @arr = (
        [
            {a => 1},
            {a => 2},
            {a => 2}
        ],
        [
            {a => 1, b => 2},
            {b => 3},
            {a => 1, b => 3}
        ],
        [
            {},
            {a => 1},
            {a => 1}
        ],
        [
            {a => 1},
            {},
            {a => 1}
        ],
        [
            {a => [1, 2, 3]},
            {a => [4, 5]},
            {a => [4, 5]},
        ],
        [
            {a => "bar", b => [1, 2]},
            {a => [1, 2]},
            {a => [1, 2], b => [1, 2]}
        ],
        [
            {a => {b => 'bar'}},
            {a => {c => 'foo'}},
            {a => {b => 'bar', c => 'foo'}},
        ],
        [
            {a => {b => 'bar'}},
            {a => {b => [1, 2]}},
            {a => {b => [1, 2]}},
        ],
    );
    _try(@arr);
}
# Add to adday
{
    my @arr = (
        [
            {a => {b => [1, 2]}},
            {a => {"+b" => [3, 4]}},
            {a => {b => [1, 2, 3, 4]}}
        ],
        [
            {a => {b => [1, 2]}},
            {a => {"+b" => [1, 2, 4]}},
            {a => {b => [1, 2, 4]}}
        ],
        [
            {a => {b => [1, 2]}},
            {a => {"+b" => [1, 2]}},
            {a => {b => [1, 2]}}
        ],
        [
            {a => {b => [1, 'bar']}},
            {a => {"+b" => [2, 'foo']}},
            {a => {b => [1, 'bar', 2, 'foo']}}
        ],
        [
            {a => {b => [1, {bar => 'foo'}]}},
            {a => {"+b" => [2, {bar => 'foo'}]}},
            {a => {b => [1, {bar => 'foo'}, 2]}}
        ],
        # Merging only applies to arrays
        [{a => "bar"}, {"+a" => "foo"}, {a => "bar", "+a" => "foo"}],
        # A real modules initialization test
        [
            {
                modules => ["+MyApp::Fully::Qualified"],
                modules_init => {
                    "+MyApp::Fully::Qualified" => {bar => 1, foo => 'baz'}
                }
            },
            {
                modules_init => {
                    "+MyApp::Fully::Qualified" => {coo => 'bah'}
                }
            },
            {
                modules => ["+MyApp::Fully::Qualified"],
                modules_init => {
                    "+MyApp::Fully::Qualified" => {bar => 1, foo => 'baz', coo => 'bah'}
                }
            }
        ]
    );
    _try(@arr);
}
# Remove from adday
{
    my @arr = (
        [
            {a => {b => [1, 2]}},
            {a => {"-b" => [2]}},
            {a => {b => [1]}}
        ],
        [
            {a => {b => [1, 2]}},
            {a => {"-b" => [2, 3, 4]}},
            {a => {b => [1]}}
        ],
        [
            {a => {b => [1, 2, "bar"]}},
            {a => {"-b" => ["bar", 3, 2]}},
            {a => {b => [1]}}
        ],
        [
            {a => {b => [1, 2, {bar => 'foo'}]}},
            {a => {"-b" => [{bar => 'foo'}, 1]}},
            {a => {b => [2]}}
        ],
    );
    _try(@arr);
}
sub _try
{
    for (@_) {
        my ($a, $b, $c) = @$_;
        my $m = Kelp::Module::Config::_merge($a, $b);
        is_deeply($m, $c) or diag explain $m;
    }
}
done_testing;