|
Lines 21-30
use File::Temp;
Link Here
|
| 21 |
use File::Path qw/make_path/; |
21 |
use File::Path qw/make_path/; |
| 22 |
use MARC::Record; |
22 |
use MARC::Record; |
| 23 |
use Test::NoWarnings; |
23 |
use Test::NoWarnings; |
| 24 |
use Test::More tests => 5; |
24 |
use Test::More tests => 6; |
| 25 |
use Test::Warn; |
25 |
use Test::Warn; |
| 26 |
use t::lib::TestBuilder; |
26 |
use t::lib::TestBuilder; |
| 27 |
use t::lib::Mocks; |
27 |
use t::lib::Mocks qw( mock_preference ); |
| 28 |
|
28 |
|
| 29 |
use Koha::Database; |
29 |
use Koha::Database; |
| 30 |
use Koha::Libraries; |
30 |
use Koha::Libraries; |
|
Lines 36-44
BEGIN {
Link Here
|
| 36 |
|
36 |
|
| 37 |
my $schema = Koha::Database->new->schema; |
37 |
my $schema = Koha::Database->new->schema; |
| 38 |
my $builder = t::lib::TestBuilder->new; |
38 |
my $builder = t::lib::TestBuilder->new; |
|
|
39 |
our $cache = Koha::Caches->get_instance; |
| 39 |
|
40 |
|
| 40 |
subtest 'Tests moved from t' => sub { |
41 |
subtest 'Tests moved from t' => sub { |
| 41 |
plan tests => 8; |
42 |
plan tests => 11; |
| 42 |
$schema->storage->txn_begin; |
43 |
$schema->storage->txn_begin; |
| 43 |
|
44 |
|
| 44 |
my $dir = File::Temp->newdir(); |
45 |
my $dir = File::Temp->newdir(); |
|
Lines 78-86
subtest 'Tests moved from t' => sub {
Link Here
|
| 78 |
); |
79 |
); |
| 79 |
is( find_and_slurp( $dir, 'nope', 'fr-FR' ), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR' ); |
80 |
is( find_and_slurp( $dir, 'nope', 'fr-FR' ), 'Theme prog, language en', 'Fell back to prog/en for nope/fr-FR' ); |
| 80 |
|
81 |
|
| 81 |
my $matching_string = q{<syspref name="singleBranchMode">0</syspref>}; |
82 |
my $matching_string = q{<syspref name="singleBranchMode">[0|1]</syspref>}; |
| 82 |
my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs(); |
83 |
my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs(); |
| 83 |
ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0' ); |
84 |
ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has no value' ); |
|
|
85 |
|
| 86 |
t::lib::Mocks::mock_config('opachtdocs', "$dir"); |
| 87 |
make_path("$dir/bootstrap/en/xslt/biblioexport"); |
| 88 |
|
| 89 |
# Make XSL with title |
| 90 |
open my $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_01.xsl"; |
| 91 |
print $fh qq|<?xml version="1.0" encoding="UTF-8"?> |
| 92 |
<xsl:stylesheet version="1.0" |
| 93 |
xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
| 94 |
xmlns:marc="http://www.loc.gov/MARC21/slim" |
| 95 |
title="Export 01"> |
| 96 |
</xsl:stylesheet>|; |
| 97 |
close $fh; |
| 98 |
|
| 99 |
# Make XSL without title |
| 100 |
open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_02.xsl"; |
| 101 |
print $fh qq|<?xml version="1.0" encoding="UTF-8"?> |
| 102 |
<xsl:stylesheet version="1.0" |
| 103 |
xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
| 104 |
xmlns:marc="http://www.loc.gov/MARC21/slim"> |
| 105 |
</xsl:stylesheet>|; |
| 106 |
close $fh; |
| 107 |
|
| 108 |
open $fh, '>', "$dir/bootstrap/en/xslt/biblioexport/export_03.xsl"; |
| 109 |
print $fh qq|<?xml version="1.0" encoding="UTF-8"?>|; |
| 110 |
close $fh; |
| 111 |
|
| 112 |
t::lib::Mocks::mock_preference( 'OpacExportOptions', 'custom'); |
| 113 |
my @custom_xslts = @{C4::XSLT::CustomXSLTExportList(1)}; |
| 114 |
ok((scalar @custom_xslts) == 2, "CustomXSLTExportList finds custom XSLTs"); |
| 115 |
ok($custom_xslts[0]->{filename} eq "Export 01", "Title is specified in root node"); |
| 116 |
ok($custom_xslts[1]->{filename} eq "export_02", "Title is filename if not specified"); |
| 84 |
|
117 |
|
| 85 |
$schema->storage->txn_rollback; |
118 |
$schema->storage->txn_rollback; |
| 86 |
}; |
119 |
}; |
|
Lines 225-230
subtest 'buildKohaItemsNamespace status tests' => sub {
Link Here
|
| 225 |
$schema->storage->txn_rollback; |
258 |
$schema->storage->txn_rollback; |
| 226 |
}; |
259 |
}; |
| 227 |
|
260 |
|
|
|
261 |
subtest 'CustomXSLTExportList: Check export options' => sub { |
| 262 |
plan tests => 2; |
| 263 |
t::lib::Mocks::mock_preference('OpacExportOptions', 'custom'); |
| 264 |
my $list = C4::XSLT::CustomXSLTExportList(1); |
| 265 |
is( $list>0, 1, 'We expect at least one result: simple export' ); |
| 266 |
$cache->clear_from_cache('CustomXSLTExportListOPAC'); |
| 267 |
t::lib::Mocks::mock_preference('OpacExportOptions', 'dc'); |
| 268 |
$list = C4::XSLT::CustomXSLTExportList(1); |
| 269 |
is( @$list, 0, 'We expect an empty list now' ); |
| 270 |
}; |
| 271 |
|
| 228 |
subtest 'buildKohaItemsNamespace() including/omitting items tests' => sub { |
272 |
subtest 'buildKohaItemsNamespace() including/omitting items tests' => sub { |
| 229 |
plan tests => 23; |
273 |
plan tests => 23; |
| 230 |
|
274 |
|
| 231 |
- |
|
|