#!perl -w
use strict;
use Test::More;
use t::lib::TTSimple;
is render_file('include.tt', { lang => "Xslate" }),
"include:\n" . "Hello, Xslate world!\n";
is render_file('include2.tt', { file => "hello.tt", lang => "Xslate" }),
"include2:\n" . "Hello, Xslate world!\n";
is render_file('include2.tt', { file => "include.tt", lang => "Xslate" }),
"include2:\n" . "include:\n" . "Hello, Xslate world!\n";
is render_str(<<'T', { lang => "Xslate" }), <<'X';
[% INCLUDE "hello.tt" WITH lang = "TTerse" -%]
Hello, [% lang %] world!
T
Hello, TTerse world!
Hello, Xslate world!
X
is render_str(<<'T', { lang => "Xslate" }), <<'X';
[% INCLUDE "hello.tt" WITH
pi = 3.14
lang = "TTerse" -%]
Hello, [% lang %] world!
T
Hello, TTerse world!
Hello, Xslate world!
X
is render_str(<<'T', { lang => "Xslate" }), <<'X';
[% INCLUDE "hello.tt" WITH pi = 3.14, lang = "TTerse" -%]
Hello, [% lang %] world!
T
Hello, TTerse world!
Hello, Xslate world!
X
is render_str(<<'T', { lang => "Xslate" }), <<'X', 'lower-cased';
[% include "hello.tt" with pi = 3.14, lang = "TTerse" -%]
Hello, [% lang %] world!
T
Hello, TTerse world!
Hello, Xslate world!
X
#is render_str(<<'T', { lang => "Xslate" }), <<'X', 'WITH is optional';
#[% INCLUDE "hello.tt" pi = 3.14, lang = "TTerse" -%]
#Hello, [% lang %] world!
#T
#Hello, TTerse world!
#Hello, Xslate world!
#X
done_testing;