#!/usr/bin/perl
# $File: //member/autrijus/Template-Generate/t/1-basic.t $ $Author: autrijus $
# $Revision: #4 $ $Change: 8169 $ $DateTime: 2003/09/18 06:21:31 $ vim: expandtab shiftwidth=4

use strict;
use Test;

BEGIN { plan tests => 6 };

require Template::Generate;
ok(Template::Generate->VERSION);

my $obj = Template::Generate->new;
ok(ref($obj), 'Template::Generate');

my $doc = "<ul>\n<li>1</li><li>2</li>\n</ul>";
my $data = {record => [{val => 1}, {val => 2}]};
ok(
    $obj->generate($data => $doc), 
    "<ul>\n[% FOREACH record %]<li>[% val %]</li>[% END %]\n</ul>",
);

my @input = (
    {
        first	=> 'Autrijus',
        last	=> 'Tang',
        score	=> 55,
    } => "(Simon's Blog) Score: 55, Name: Autrijus Tang",
    {
        first	=> 'Simon',
        last	=> 'Cozens',
        score	=> 61,
    } => "(Simon's Blog) Score: 61, Name: Simon Cozens",
);

my @template = $obj->generate(@input);
ok("@template",  "(Simon's Blog) Score: [% score %], Name: [% first %] [% last %]");

my $template = $obj->generate(@input);
ok($template,  "(Simon's Blog) Score: [% score %], Name: [% first %] [% last %]");

$doc = "1";
$data = {foo => [{bar => [{baz => 1}]}]};
ok(
    $obj->generate($data => $doc), 
    '[% FOREACH foo %][% FOREACH bar %][% baz %][% END %][% END %]',
);