File: 039_root_vars.t

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (17 lines) | stat: -rw-r--r-- 370 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!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;