File: 034_print.t

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (33 lines) | stat: -rw-r--r-- 853 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!perl -w
use strict;
use Test::More;

use Text::Xslate;

my $tx = Text::Xslate->new(
    function => {
        myprint => sub { Text::Xslate->print(@_) },
        mysay   => sub { Text::Xslate->print(@_, "\n") },
    },

    warn_handler => sub { Text::Xslate->print(@_) },
    verbose      => 2,
);

is $tx->render_string('[<: myprint() :>]'), '[]';
is $tx->render_string('[<: myprint("<foo>") :>]'),
    '[&lt;foo&gt;]';
is $tx->render_string('[<: myprint("<foo>", "<bar>") :>]'),
    '[&lt;foo&gt;&lt;bar&gt;]';

is $tx->render_string('[<: mysay() :>]'), "[\n]";
is $tx->render_string('[<: mysay("<foo>") :>]'),
    "[&lt;foo&gt;\n]";
is $tx->render_string('[<: mysay("<foo>", "<bar>") :>]'),
    "[&lt;foo&gt;&lt;bar&gt;\n]";

like $tx->render_string("<: nil :>"), qr/nil/;
like $tx->render_string("<: nil :>"), qr/&lt;string&gt;/;

done_testing;