#!/usr/bin/env perl
my
(
$template_name
,
$test_file_name
) =
@ARGV
;
my
$config
= -f
'config.yaml'
? YAML::LoadFile(
'config.yaml'
)
: {};
$config
->{index_title} ||=
'Testing '
. Cwd::cwd();
$config
->{template_include_path} ||= [
'template/'
];
$config
->{import_libs} ||=
do
{
my
$libs
= [];
File::Find::find(
{
wanted
=>
sub
{
push
@$libs
,
$File::Find::name
if
-f;
},
follow
=> 1
},
'lib'
);
$libs
;
};
my
$t
= Template->new({
INCLUDE_PATH
=>
$config
->{template_include_path}});
my
$data
= {
%$config
,
test_file
=>
$test_file_name
,
all_test_files
=> [
glob
(
'*.t.html'
) ],
};
my
$result
;
$t
->process(
$template_name
,
$data
, \
$result
)
or
die
$t
->error;
print
STDOUT
$result
;