File: 00simple.t

package info (click to toggle)
libtemplate-plugin-yaml-perl 1.23-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 68 kB
  • sloc: perl: 52; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 403 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!perl -w
use strict;
use Test::More tests => 3;
use Template;
use YAML;

my $tt = new Template;
my $out;
my $data = [ { foo => 'bar' }, { foo => 'baz' } ];
ok( $tt->process(
        \"[% USE YAML %][% YAML.dump( struct ) %]", { struct => $data, },
        \$out
    ),
    "TT ran"
);

ok( !$tt->error, "  without error" );

is_deeply( YAML::Load($out), $data, "YAML round tripped to original data" );