Lines 19-26
use Modern::Perl;
Link Here
|
19 |
|
19 |
|
20 |
use CGI; |
20 |
use CGI; |
21 |
|
21 |
|
22 |
use Test::More tests => 5; |
22 |
use Test::More tests => 6; |
23 |
use Test::Deep; |
23 |
use Test::Deep; |
|
|
24 |
use Test::MockModule; |
24 |
|
25 |
|
25 |
BEGIN { |
26 |
BEGIN { |
26 |
use_ok( 'C4::Templates' ); |
27 |
use_ok( 'C4::Templates' ); |
Lines 40-49
my $columns = C4::Templates::GetColumnDefs( $query );
Link Here
|
40 |
|
41 |
|
41 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
42 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
42 |
# get the tables names, sorted |
43 |
# get the tables names, sorted |
43 |
my @keys = sort keys %$columns; |
44 |
my @keys = sort keys %{$columns}; |
44 |
is( scalar @keys, 6, "GetColumnDefs correctly returns the 5 tables defined in columns.def" ); |
45 |
is( scalar @keys, 6, 'GetColumnDefs correctly returns the 5 tables defined in columns.def' ); |
45 |
my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics', 'subscription'); |
46 |
my @tables = qw( biblio biblioitems borrowers items statistics subscription ); |
46 |
cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); |
47 |
cmp_deeply( \@keys, \@tables, 'GetColumnDefs returns the expected tables'); |
47 |
|
48 |
|
|
|
49 |
subtest 'Test C4::Templates::themelanguage' => sub { |
50 |
plan tests => 4; |
51 |
my $testing_language; |
52 |
my $module_language = Test::MockModule->new('C4::Languages'); |
53 |
|
54 |
$module_language->mock( |
55 |
'getlanguage', |
56 |
sub { |
57 |
return $testing_language; |
58 |
} |
59 |
); |
60 |
|
61 |
my $cgi = CGI->new(); |
62 |
my $htdocs = C4::Context->config('intrahtdocs'); |
63 |
my $section = 'intranet'; |
64 |
|
65 |
# trigger first case. |
66 |
$testing_language = 'fr-FR'; |
67 |
my ($theme, $lang, $availablethemes) = C4::Templates::themelanguage($htdocs, 'about.tt', $section, $cgi); |
68 |
is($lang,'fr-FR','Expected language: non-en'); |
69 |
|
70 |
# trigger second case. |
71 |
$testing_language = q{}; |
72 |
($theme, $lang, $availablethemes) = C4::Templates::themelanguage($htdocs, 'about.tt', $section, $cgi); |
73 |
is($lang,'en','Expected language: default en'); |
74 |
|
75 |
# trigger third case. |
76 |
my $template = $htdocs . '/prog/en/modules/about.tt'; |
77 |
($theme, $lang, $availablethemes) = C4::Templates::themelanguage($htdocs, $template, $section, $cgi); |
78 |
is($lang,q{},'Expected language: unset'); |
79 |
|
80 |
# trigger bad case. |
81 |
$template = $htdocs . '/prog/en/kaboom/about.tt'; |
82 |
($theme, $lang, $availablethemes) = C4::Templates::themelanguage($htdocs, $template, $section, $cgi); |
83 |
is($lang,undef,'Expected language: not coded for'); |
84 |
|
85 |
return; |
86 |
}; |
48 |
|
87 |
|
49 |
1; |
88 |
1; |
50 |
- |
|
|