Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 8; |
20 |
use Test::More tests => 9; |
21 |
use File::Temp; |
21 |
use File::Temp; |
22 |
use File::Path qw/make_path/; |
22 |
use File::Path qw/make_path/; |
23 |
|
23 |
|
Lines 62-65
is(find_and_slurp($dir, 'test', 'fr-FR'), 'Theme test, language en', 'Fell ba
Link Here
|
62 |
is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES'); |
62 |
is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES'); |
63 |
is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR'); |
63 |
is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR'); |
64 |
|
64 |
|
|
|
65 |
my $matching_string = q{<syspref name="singleBranchMode">0</syspref>}; |
66 |
my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs(); |
67 |
ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0'); |
68 |
|
65 |
1; |
69 |
1; |
66 |
- |
|
|