The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings FATAL => 'all';

use Test::More;
use Test::Deep;

use_ok 'DBIx::Class::Sims';

my $sub = \&DBIx::Class::Sims::expand_dots;

my @tests = (
    {
        start => {},
        expected => {},
    },
    {
        start => { abcd => [] },
        expected => { abcd => [] }
    },
    {
        start => { abcd => [ { a => 'b' } ] }, 
        expected => { abcd => [ { a => 'b' } ] }, 
    },
    {
        start => { abcd => [ { 'a.b' => 'c' } ] }, 
        expected => { abcd => [ { a => { 'b' => 'c' } } ] }, 
    },
    {
        start => { abcd => [ { 'a.b.c' => 'd' } ] }, 
        expected => { abcd => [ { a => { 'b' => { 'c' => 'd' } } } ] }, 
    },
);

foreach my $test ( @tests ) {
    cmp_deeply( $sub->( $test->{start} ), $test->{expected} );
}

done_testing;