#!perl
use strict;
use warnings;

use Test::More tests => 1;
use lib 't/lib';
use Email::MIME::Kit::Renderer::TestRenderer;

my $template =
  'This will say "I love pie": [% actor %] [% m_obj.verb() %] [% z_by("me") %]';

{ package V; sub new { bless {} }; sub verb { 'love' } }

my $output_ref = Email::MIME::Kit::Renderer::TestRenderer->render(
  \$template,
  {
    actor => 'I',
    m_obj => V->new,
    z_by  => sub { return 'pie' if $_[0] eq 'me'; return 'cake' },
  },
);

like(
  $$output_ref,
  qr{\Q"I love pie": I love pie\E\Z},
  "our test renderer is good enough for our tests",
);