1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/env perl
# Check the extraction of po-tables
use warnings;
use strict;
use Test::More;
# use Log::Report mode => 'DEBUG'; # DEBUG to see stats
use File::Basename qw(dirname);
(my $incl) = grep -d, 't/templates', 'templates';
$incl or die "where are my templates?";
my $lexicon = dirname($incl) .'/lexicons';
-d $lexicon or mkdir $lexicon or die "$lexicon: $!";
### Construct templater (tested in t/10templater.t)
use_ok 'Log::Report::Template';
my $templater = Log::Report::Template->new(INCLUDE_PATH => $incl,
# DEBUG => 255
);
isa_ok $templater, 'Log::Report::Template';
### Define first, default function loc()
my $first = $templater->addTextdomain(name => 'first', lexicon => $lexicon);
isa_ok $first, 'Log::Report::Template::Textdomain';
is $first->name, 'first';
#dispatcher close => 'default';
### Define second, translation function S()
my $second = $templater->addTextdomain(
name => 'second',
translation_function => 'S',
only_in_directory => $incl,
lexicon => $lexicon,
);
### Extract from the template files
$templater->extract;
done_testing;
|
