use Test::Mini::Unit;

case t::ReadPartialsFromPartialMethod {
    {
        package t::ReadPartialsFromPartialMethod::Mustache;
        use base 'Template::Mustache';

        sub partial {
            my ($receiver, $name) = @_;
            return 'a, b, c' if $name eq 'list1';
            return 'd, e, f' if $name eq 'list2';
        }
    }

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

    test rendering {
        my $rendered = t::ReadPartialsFromPartialMethod::Mustache->render(
            $self->{template},
            $self->{data},
        );

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