1use strict;
2use warnings;
3use ClearSilver;
4use Data::ClearSilver::HDF;
5use IPC::Cmd;
6
7local $Data::Dumper::Terse = 1;
8local $Data::Dumper::Deepcopy = 1;
9
10my $loadpath = 'benchmark/template';
11my $template = 'index.cs';
12my $hdf_file = 'var.hdf';
13
14my $var = do 'benchmark/data/var.pl';
15my $hdf = Data::ClearSilver::HDF->hdf($var);
16$hdf->setValue('hdf.loadpaths.0', $loadpath);
17$hdf->writeFile($hdf_file);
18my $cs = ClearSilver::CS->new($hdf);
19
20if (!$cs->parseFile($template) && 0) {
21    my $buffer = '';
22    my $file = qq{$loadpath/$template};
23    my @run = (
24        command => [ 'cstest', '-v', $hdf_file, $file ],
25        buffer  => \$buffer,
26        timeout => 1,
27    );
28    IPC::Cmd::run( @run );
29    die $buffer;
30}
31print $cs->render;
32
33