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

use Test::More tests => 1;

use Text::Caml;

use File::Basename ();
use File::Spec ();

# Had '@_' instead of 'ref $_[0] eq 'HASH' ? $_[0] : {@_}' in render_file.
# Without this test no tests actually caught that bug.
{
    my $renderer = Text::Caml->new;

    my $templates_path = File::Spec->catfile(
        File::Basename::dirname(__FILE__), 'templates'
    );

    my $output = $renderer->render_file(
        File::Spec->catfile($templates_path, 'partial-with-directives'),
        name => "Alex",
    );

    is(
        $output,
        'Hello Alex!',
        'handle non-hashref context in render_file()'
    );
}