#!/usr/bin/perl
use strict;
BEGIN {
use_ok('Positron::DataTemplate');
}
my $template = Positron::DataTemplate->new();
$template->add_include_paths('t/Positron/DataTemplate/');
my $data = {
'list' => [{ id => 1, title => 'eins'}, { id => 2, title => 'zwei' }],
'hash' => { 1 => 2 },
};
is_deeply($template->process( [1, '. "plain.json"', 2], $data ), [1, { one => 1 }, 2], "Include a plain file");
is_deeply($template->process( { plain => '. "plain.json"' }, $data ), { plain => { one => 1 }}, "Include a plain file in a hash");
is_deeply($template->process( [1, '. "structure.json"', 2], $data ), [1, { one => { 1 => 2 }, two => ['eins', 'zwei'] }, 2], "Include a file with structure");
is_deeply($template->process( [1, '. "lists.json"', 2], $data ), [1, [2, [3, 4], 5 ], 2], "Include a list file");
is_deeply($template->process( [1, '.- "lists.json"', 2], $data ), [1, 2, [3, 4], 5, 2], "Include a list file with -");
is_deeply($template->process( [1, '<', '. "lists.json"', 2], $data ), [1, 2, [3, 4], 5, 2], "Include a list file with <");
is_deeply($template->process( { two => 2, '< 1' => '. "plain.json"' }, $data ), { one => 1, two => 2 }, "Include a plain file in a hash with <");
done_testing();