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

(-)a/t/Context.t (-2 / +42 lines)
Lines 1-14 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
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
3
use Modern::Perl;
18
use Modern::Perl;
19
4
use DBI;
20
use DBI;
5
use Test::More tests => 27;
21
use Test::More tests => 28;
6
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
24
use YAML;
7
25
8
BEGIN {
26
BEGIN {
9
    use_ok('C4::Context');
27
    use_ok('C4::Context');
10
}
28
}
11
29
30
subtest 'yaml_preference() tests' => sub {
31
32
    plan tests => 3;
33
34
    my $data = [ 'uno', 'dos', { 'tres' => 'cuatro' } ];
35
36
    my $context = Test::MockModule->new( 'C4::Context' );
37
    $context->mock( 'preference', YAML::Dump($data) );
38
39
    my $pref = C4::Context->new->yaml_preference( 'nothing' );
40
41
    is_deeply( $pref, $data, 'yaml_preference returns the right structure' );
42
43
    $context->mock( 'preference', q{- uno - dos: asd} );
44
    warning_like
45
        { $pref = C4::Context->new->yaml_preference('nothing') }
46
        qr/^Unable to parse nothing syspref/,
47
        'Invalid YAML on syspref throws a warning';
48
    is( $pref, undef, 'Invalid YAML on syspref makes it return undef' );
49
50
    $context->unmock( 'preference' );
51
};
52
12
my $context = new Test::MockModule('C4::Context');
53
my $context = new Test::MockModule('C4::Context');
13
my $userenv = {};
54
my $userenv = {};
14
55
15
- 

Return to bug 23580