Attachment #138085 for bug #17385

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




use File::Temp;
use File::Path qw/make_path/;

use t::lib::Mocks qw( mock_preference );

use Module::Load::Conditional qw/check_install/;

BEGIN {
    if ( check_install( module => 'Test::DBIx::Class' ) ) {
        plan tests => 12;
    } else {
        plan skip_all => "Need Test::DBIx::Class"
    }

is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES');
is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en',    'Fell back to prog/en for nope/fr-FR');

my $matching_string = q{<syspref name="singleBranchMode">[0|1]</syspref>};
my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs();
ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has no value');

t::lib::Mocks::mock_config('opachtdocs', "$dir");
make_path("$dir/bootstrap/en/xslt/biblioexport");

# Make XSL with title
open my $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_01.xsl";
print $fh qq|<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
   xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:marc="http://www.loc.gov/MARC21/slim"
   title="Export 01">
</xsl:stylesheet>|;
close $fh;

# Make XSL without title
open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_02.xsl";
print $fh qq|<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
   xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:marc="http://www.loc.gov/MARC21/slim">
</xsl:stylesheet>|;
close $fh;

open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_03.xsl";
print $fh qq|<?xml version="1.0" encoding="UTF-8"?>|;
close $fh;

my @custom_xslts = @{C4::XSLT::CustomXSLTExportList(1)};
ok((scalar @custom_xslts) == 2, "CustomXSLTExportList finds custom XSLTs");
ok($custom_xslts[0]->{filename} eq "Export 01", "Title is specified in root node");
ok($custom_xslts[1]->{filename} eq "export_02", "Title is filename if not specified");

Lines 1-3 Link Here

(-)a/t/db_dependent/XSLT.t (-1 / +19 lines)
		1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
1	use Modern::Perl;	18	use Modern::Perl;
2		19
3	use MARC::Record;	20	use MARC::Record;
Lines 16-21 BEGIN { Link Here
16	}	33	}
17		34
18	our $schema = Koha::Database->new->schema;	35	our $schema = Koha::Database->new->schema;
		36	my $builder = t::lib::TestBuilder->new;
		37	our $cache = Koha::Caches->get_instance;
19		38
20	# Here we go	39	# Here we go
21	$schema->storage->txn_begin;	40	$schema->storage->txn_begin;
22	-

Return to bug 17385

Lines 21-33 use Test::More; Link Here

(-)a/t/XSLT.t (-4 / +35 lines)
21	use File::Temp;	21	use File::Temp;
22	use File::Path qw/make_path/;	22	use File::Path qw/make_path/;
23		23
24	use t::lib::Mocks;	24	use t::lib::Mocks qw( mock_preference );
25		25
26	use Module::Load::Conditional qw/check_install/;	26	use Module::Load::Conditional qw/check_install/;
27		27
28	BEGIN {	28	BEGIN {
29	if ( check_install( module => 'Test::DBIx::Class' ) ) {	29	if ( check_install( module => 'Test::DBIx::Class' ) ) {
30	plan tests => 9;	30	plan tests => 12;
31	} else {	31	} else {
32	plan skip_all => "Need Test::DBIx::Class"	32	plan skip_all => "Need Test::DBIx::Class"
33	}	33	}
Lines 73-78 is(find_and_slurp($dir, 'test', 'fr-FR'), 'Theme test, language en', 'Fell ba Link Here
73	is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES');	73	is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES');
74	is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR');	74	is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR');
75		75
76	my $matching_string = q{<syspref name="singleBranchMode">0</syspref>};	76	my $matching_string = q{<syspref name="singleBranchMode">[0\|1]</syspref>};
77	my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs();	77	my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs();
78	ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0');	78	ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has no value');
		79
		80	t::lib::Mocks::mock_config('opachtdocs', "$dir");
		81	make_path("$dir/bootstrap/en/xslt/biblioexport");
		82
		83	# Make XSL with title
		84	open my $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_01.xsl";
		85	print $fh qq\|<?xml version="1.0" encoding="UTF-8"?>
		86	<xsl:stylesheet version="1.0"
		87	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
		88	xmlns:marc="http://www.loc.gov/MARC21/slim"
		89	title="Export 01">
		90	</xsl:stylesheet>\|;
		91	close $fh;
		92
		93	# Make XSL without title
		94	open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_02.xsl";
		95	print $fh qq\|<?xml version="1.0" encoding="UTF-8"?>
		96	<xsl:stylesheet version="1.0"
		97	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
		98	xmlns:marc="http://www.loc.gov/MARC21/slim">
		99	</xsl:stylesheet>\|;
		100	close $fh;
		101
		102	open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_03.xsl";
		103	print $fh qq\|<?xml version="1.0" encoding="UTF-8"?>\|;
		104	close $fh;
		105
		106	my @custom_xslts = @{C4::XSLT::CustomXSLTExportList(1)};
		107	ok((scalar @custom_xslts) == 2, "CustomXSLTExportList finds custom XSLTs");
		108	ok($custom_xslts[0]->{filename} eq "Export 01", "Title is specified in root node");
		109	ok($custom_xslts[1]->{filename} eq "export_02", "Title is filename if not specified");