use strict;
use warnings;

use Template::Mustache;

use Test::More;
use File::Temp qw/ tempdir /;

    {
        ## no critic (RequireFilenameMatchesPackage)
        package t::ReadTemplatesFromFileSystem::Mustache;
        use base 'Template::Mustache';

        sub name        { 'Joe' }
        sub occupation  { 'Plumber' }
        sub is_instance { ref(shift) ? 'yes' : 'no' }
    }

    my $self = {};
    my $tmpdir = tempdir(CLEANUP => 0);

    subtest ImplicitFilename => sub {

        my $filename = "$tmpdir/Mustache.mustache";
        open my $fh, '>', $filename;
        print $fh '{{name}} the {{occupation}} ({{is_instance}})';
        close $fh;

        subtest instance_render => sub {
            my $renderer = t::ReadTemplatesFromFileSystem::Mustache->new(
                template_path => $tmpdir
            );
            is($renderer->render(), "Joe the Plumber (yes)");
        };
    };

    subtest ExplicitFilename => sub {
            my $filename = "$tmpdir/OtherTemplate.mustache";
            open my $fh, '+>', $filename;
            print $fh '{{name}} -- {{occupation}} ({{is_instance}})';
            close $fh;

            my $m = t::ReadTemplatesFromFileSystem::Mustache->new(
                template_path => $filename
            );


        subtest instance_render => sub {
            is($m->render(), "Joe -- Plumber (yes)");
        };

    };

    subtest WithoutSubclass => sub {

            my $filename = "$tmpdir/TemplateFile.mustache";
            open my $fh, '+>', $filename;
            print $fh '{{name}}, {{occupation}}';
            close $fh;

        subtest rendering => sub {
            my $result = Template::Mustache->new(
                template_path => $filename
            )->render({
                name       => 'Joe',
                occupation => 'Plumber',
            });
            is($result, "Joe, Plumber");
        };
    };

done_testing;