#!perl
use strict;
use warnings;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new();
is $tx->render_string('<: __ROOT__["foo"] :>', { foo => 42 }), '42';
is $tx->render_string('<: __ROOT__.foo :>', { foo => 42 }), '42';
is $tx->render_string(
'<: __ROOT__.merge({ foo => "bar"}).foo ~ __ROOT__.foo :>', { foo => 42 }),
'bar42';
done_testing;