1#!perl -w
2
3; use strict
4; use Test::More tests => 1
5; use Template::Magic
6
7; our ( $tm
8      , $content
9      , $expected
10      , $tmp
11      )
12
13; $tm = new Template::Magic
14
15; $tmp = 'A nested loop:{my_nested_loop}|Date: {date} - Operation: {operation} - Details:{details} - {quantity} {item}{/details} - {/my_nested_loop}|';
16
17; $expected = << '__EOS__';
18my_nested_loop:
19    date:
20    operation:
21    details:
22        quantity:
23        item:
24    /details:
25/my_nested_loop:
26
27__EOS__
28
29; $tm->ID_list('    ')
30; $content = $tm->output(\$tmp)
31; is( $$content."\n"
32    , $expected)
33