#!perl
use warnings;
use strict;
use Data::Dumper;
use Test::More tests => 4;
use FindBin qw($Bin);
use Test::XML;
use Template::TAL;
ok( my $tt = Template::TAL->new( include_path => $Bin ), "got TT object");
ok( $tt->add_language("Template::TAL::Language::PerlValue"), "loaded PerlValue language");
ok( my $output = $tt->process(\(<<'END_OF_TEMPLATE'), { text => 5 }), "processed");
Test of HTML output
END_OF_TEMPLATE
is_xml($output, <<'END_OF_EXPECTED');
one plus two is 3
END_OF_EXPECTED