#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Handlebars;

render_ok(
    'This is {{#shown}}shown{{/shown}}',
    { shown => 1 },
    'This is shown',
    "true block variable"
);

render_ok(
    'This is {{#shown}}shown{{/shown}}',
    { shown => 0 },
    'This is ',
    "false block variable"
);

render_ok(
    'This is {{#shown}}shown{{/shown}}',
    { shown => [({}) x 3] },
    'This is shownshownshown',
    "array block variable"
);

render_ok(
    'This is {{#shown}}{{content}}{{/shown}}',
    { shown => { content => 'SHOWN' } },
    'This is SHOWN',
    "nested hash block variable"
);

render_ok(
    'This is {{#shown}}{{content}}{{/shown}}',
    {
        shown => [
            { content => '3' },
            { content => '2' },
            { content => '1' },
            { content => 'Shown' },
        ],
    },
    'This is 321Shown',
    "nested array of hashes block variable"
);

render_ok(
    '{{#goodbyes}}{{@index}}. {{text}}! {{/goodbyes}}cruel {{world}}!',
    {
        goodbyes => [
            { text => 'goodbye' },
            { text => 'Goodbye' },
            { text => 'GOODBYE' },
        ],
        world => 'world',
    },
    '0. goodbye! 1. Goodbye! 2. GOODBYE! cruel world!',
    "\@index variable"
);

render_ok(
    '{{#foo}}{{/foo}}bar',
    {
        foo => [ 1, 2, 3 ],
    },
    'bar',
    "empty block"
);

done_testing;