#! /usr/bin/env perl # -*- perl -*-
# Copyright (C) 2016-2018 Guido Flohr <guido.flohr@cantanea.com>,
# all rights reserved.
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
use strict;
use Test::More tests => 2;
use Qgoda::Util qw(flatten2hash);
my $hash = {
    zero => 0,
    one => 1,
    two => 2,
    deeply => {
        nested => {
            hash => {
                foo => 'bar',
            },
            array => [23, 4, 89],
        },
    },
    empty_hash => {},
    empty_array => [],
};
is_deeply flatten2hash($hash), {
    zero => 0,
    one => 1,
    two => 2,
    'deeply.nested.hash.foo' => 'bar',
    'deeply.nested.array.0' => 23,
    'deeply.nested.array.1' => 4,
    'deeply.nested.array.2' => 89,
    'empty_hash' => {},
    'empty_array' => [],
};
my $array = [the => $hash];
is_deeply flatten2hash($array), {
    0 => 'the',
    '1.zero' => 0,
    '1.one' => 1,
    '1.two' => 2,
    '1.deeply.nested.hash.foo' => 'bar',
    '1.deeply.nested.array.0' => 23,
    '1.deeply.nested.array.1' => 4,
    '1.deeply.nested.array.2' => 89,
    '1.empty_hash' => {},
    '1.empty_array' => [],
};