use strict;
use warnings;

use Template::Mustache;

use Test::More;

my $self = {};
        $self->{template} = '[ {{> list1}}, {{> list2}} ]';
        $self->{partials} = sub {
            return 'a, b, c' if $_[0] eq 'list1';
            return 'd, e, f' if $_[0] eq 'list2';
        };

        $self->{expected} = '[ a, b, c, d, e, f ]';

    subtest rendering => sub {
        my $rendered = Template::Mustache->render(
            $self->{template},
            $self->{data},
            $self->{partials},
        );

        is($rendered, $self->{expected});
    };

done_testing;