View | Details | Raw Unified | Return to bug 33733
Collapse All | Expand All

(-)a/t/XSLT.t (-29 / +28 lines)
Lines 32-68 my @langs = ('en', 'es-ES'); Link Here
32
subtest 'Tests moved from t' => sub {
32
subtest 'Tests moved from t' => sub {
33
    plan tests => 8;
33
    plan tests => 8;
34
34
35
# create temporary files to be tested later
35
    # create temporary files to be tested later
36
foreach my $theme (@themes) {
36
    foreach my $theme (@themes) {
37
    foreach my $lang (@langs) {
37
        foreach my $lang (@langs) {
38
        make_path("$dir/$theme/$lang/xslt");
38
            make_path("$dir/$theme/$lang/xslt");
39
        open my $fh, '>', "$dir/$theme/$lang/xslt/my_file.xslt";
39
            open my $fh, '>', "$dir/$theme/$lang/xslt/my_file.xslt";
40
        print $fh "Theme $theme, language $lang";
40
            print $fh "Theme $theme, language $lang";
41
        close $fh;
41
            close $fh;
42
        }
42
    }
43
    }
43
}
44
44
45
sub find_and_slurp {
45
    sub find_and_slurp {
46
    my ($dir, $theme, $lang) = @_;
46
        my ($dir, $theme, $lang) = @_;
47
47
48
    my $filename = C4::XSLT::_get_best_default_xslt_filename($dir, $theme, $lang, 'my_file.xslt');
48
        my $filename = C4::XSLT::_get_best_default_xslt_filename($dir, $theme, $lang, 'my_file.xslt');
49
    open my $fh, '<', $filename;
49
        open my $fh, '<', $filename;
50
    my $str = <$fh>;
50
        my $str = <$fh>;
51
    close $fh;
51
        close $fh;
52
    return $str;
52
        return $str;
53
}
53
    }
54
54
55
# These tests verify that we're finding the right XSLT file when present,
55
    # These tests verify that we're finding the right XSLT file when present,
56
# and falling back to the right XSLT file when an exact match is not present.
56
    # and falling back to the right XSLT file when an exact match is not present.
57
is(find_and_slurp($dir, 'test', 'en'   ), 'Theme test, language en',    'Found test/en');
57
    is(find_and_slurp($dir, 'test', 'en'   ), 'Theme test, language en',    'Found test/en');
58
is(find_and_slurp($dir, 'test', 'es-ES'), 'Theme test, language es-ES', 'Found test/es-ES');
58
    is(find_and_slurp($dir, 'test', 'es-ES'), 'Theme test, language es-ES', 'Found test/es-ES');
59
is(find_and_slurp($dir, 'prog', 'en',  ), 'Theme prog, language en',    'Found test/en');
59
    is(find_and_slurp($dir, 'prog', 'en',  ), 'Theme prog, language en',    'Found test/en');
60
is(find_and_slurp($dir, 'prog', 'es-ES'), 'Theme prog, language es-ES', 'Found test/es-ES');
60
    is(find_and_slurp($dir, 'prog', 'es-ES'), 'Theme prog, language es-ES', 'Found test/es-ES');
61
is(find_and_slurp($dir, 'test', 'fr-FR'), 'Theme test, language en',    'Fell back to test/en for test/fr-FR');
61
    is(find_and_slurp($dir, 'test', 'fr-FR'), 'Theme test, language en',    'Fell back to test/en for test/fr-FR');
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>};
65
    my $matching_string = q{<syspref name="singleBranchMode">0</syspref>};
66
my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs();
66
    my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs();
67
ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0');
67
    ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0');
68
};
68
};
69
- 

Return to bug 33733