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