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
50
|
#!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$|=1;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
# exists_filename tests
{
my $filename;
$filename = Petal::Functions::exists_filename ('fr-CA' => './t/data/language/exists_filename/');
is ($filename => 'fr-CA.html');
$filename = Petal::Functions::exists_filename ('fr' => './t/data/language/exists_filename/');
is ($filename => 'fr.xml');
$filename = Petal::Functions::exists_filename ('en' => './t/data/language/exists_filename/');
ok (not defined $filename);
}
# parent_language
{
my $lang = 'fr-CA';
$lang = Petal::Functions::parent_language ($lang);
is ($lang => 'fr');
$lang = Petal::Functions::parent_language ($lang);
is ($lang => 'en');
$lang = Petal::Functions::parent_language ($lang);
ok (not defined $lang);
}
{
local $Petal::OUTPUT = 'XML';
local $Petal::BASE_DIR = 't/data/language';
my $template = new Petal ( file => '.', lang => 'fr-CA');
like ($template->process() => qr/fr\-CA/);
}
__END__
|
