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

(-)a/t/db_dependent/Koha.t (-94 / +90 lines)
Lines 6-11 Link Here
6
use Modern::Perl;
6
use Modern::Perl;
7
use Test::More tests => 5;
7
use Test::More tests => 5;
8
use Test::Warn;
8
use Test::Warn;
9
use Test::Deep;
9
10
10
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
11
12
Lines 58-158 subtest 'Authorized Values Tests' => sub { Link Here
58
        $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
59
        $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
59
    }
60
    }
60
61
61
    SKIP: {
62
    Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store;
62
        eval { require Test::Deep; import Test::Deep; };
63
    Koha::AuthorisedValue->new(
63
        skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@;
64
        {   category         => 'BUG10656',
64
        Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store;
65
            authorised_value => 'ZZZ',
65
        Koha::AuthorisedValue->new(
66
            lib              => 'Z_STAFF',
66
            {   category         => 'BUG10656',
67
            lib_opac         => 'A_PUBLIC',
67
                authorised_value => 'ZZZ',
68
            imageurl         => ''
68
                lib              => 'Z_STAFF',
69
        }
69
                lib_opac         => 'A_PUBLIC',
70
    )->store;
70
                imageurl         => ''
71
    Koha::AuthorisedValue->new(
71
            }
72
        {   category         => 'BUG10656',
72
        )->store;
73
            authorised_value => 'AAA',
73
        Koha::AuthorisedValue->new(
74
            lib              => 'A_STAFF',
74
            {   category         => 'BUG10656',
75
            lib_opac         => 'Z_PUBLIC',
76
            imageurl         => ''
77
        }
78
    )->store;
79
80
    # the next one sets lib_opac to NULL; in that case, the staff
81
    # display value is meant to be used.
82
    Koha::AuthorisedValue->new(
83
        {   category         => 'BUG10656',
84
            authorised_value => 'DDD',
85
            lib              => 'D_STAFF',
86
            lib_opac         => undef,
87
            imageurl         => ''
88
        }
89
    )->store;
90
91
    my $authvals = GetAuthorisedValues('BUG10656');
92
    cmp_deeply(
93
        $authvals,
94
        [
95
            {
96
                id => ignore(),
97
                category => 'BUG10656',
75
                authorised_value => 'AAA',
98
                authorised_value => 'AAA',
76
                lib              => 'A_STAFF',
99
                lib => 'A_STAFF',
77
                lib_opac         => 'Z_PUBLIC',
100
                lib_opac => 'Z_PUBLIC',
78
                imageurl         => ''
101
                imageurl => '',
79
            }
102
            },
80
        )->store;
103
            {
81
104
                id => ignore(),
82
        # the next one sets lib_opac to NULL; in that case, the staff
105
                category => 'BUG10656',
83
        # display value is meant to be used.
84
        Koha::AuthorisedValue->new(
85
            {   category         => 'BUG10656',
86
                authorised_value => 'DDD',
106
                authorised_value => 'DDD',
87
                lib              => 'D_STAFF',
107
                lib => 'D_STAFF',
88
                lib_opac         => undef,
108
                lib_opac => undef,
89
                imageurl         => ''
109
                imageurl => '',
90
            }
110
            },
91
        )->store;
111
            {
92
112
                id => ignore(),
93
        my $authvals = GetAuthorisedValues('BUG10656');
113
                category => 'BUG10656',
94
        cmp_deeply(
114
                authorised_value => 'ZZZ',
95
            $authvals,
115
                lib => 'Z_STAFF',
96
            [
116
                lib_opac => 'A_PUBLIC',
97
                {
117
                imageurl => '',
98
                    id => ignore(),
118
            },
99
                    category => 'BUG10656',
119
        ],
100
                    authorised_value => 'AAA',
120
        'list of authorised values in staff mode sorted by staff label (bug 10656)'
101
                    lib => 'A_STAFF',
121
    );
102
                    lib_opac => 'Z_PUBLIC',
122
    $authvals = GetAuthorisedValues('BUG10656', 1);
103
                    imageurl => '',
123
    cmp_deeply(
104
                },
124
        $authvals,
105
                {
125
        [
106
                    id => ignore(),
126
            {
107
                    category => 'BUG10656',
127
                id => ignore(),
108
                    authorised_value => 'DDD',
128
                category => 'BUG10656',
109
                    lib => 'D_STAFF',
129
                authorised_value => 'ZZZ',
110
                    lib_opac => undef,
130
                lib => 'A_PUBLIC',
111
                    imageurl => '',
131
                lib_opac => 'A_PUBLIC',
112
                },
132
                imageurl => '',
113
                {
133
            },
114
                    id => ignore(),
134
            {
115
                    category => 'BUG10656',
135
                id => ignore(),
116
                    authorised_value => 'ZZZ',
136
                category => 'BUG10656',
117
                    lib => 'Z_STAFF',
137
                authorised_value => 'DDD',
118
                    lib_opac => 'A_PUBLIC',
138
                lib => 'D_STAFF',
119
                    imageurl => '',
139
                lib_opac => undef,
120
                },
140
                imageurl => '',
121
            ],
141
            },
122
            'list of authorised values in staff mode sorted by staff label (bug 10656)'
142
            {
123
        );
143
                id => ignore(),
124
        $authvals = GetAuthorisedValues('BUG10656', 1);
144
                category => 'BUG10656',
125
        cmp_deeply(
145
                authorised_value => 'AAA',
126
            $authvals,
146
                lib => 'Z_PUBLIC',
127
            [
147
                lib_opac => 'Z_PUBLIC',
128
                {
148
                imageurl => '',
129
                    id => ignore(),
149
            },
130
                    category => 'BUG10656',
150
        ],
131
                    authorised_value => 'ZZZ',
151
        'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)'
132
                    lib => 'A_PUBLIC',
152
    );
133
                    lib_opac => 'A_PUBLIC',
134
                    imageurl => '',
135
                },
136
                {
137
                    id => ignore(),
138
                    category => 'BUG10656',
139
                    authorised_value => 'DDD',
140
                    lib => 'D_STAFF',
141
                    lib_opac => undef,
142
                    imageurl => '',
143
                },
144
                {
145
                    id => ignore(),
146
                    category => 'BUG10656',
147
                    authorised_value => 'AAA',
148
                    lib => 'Z_PUBLIC',
149
                    lib_opac => 'Z_PUBLIC',
150
                    imageurl => '',
151
                },
152
            ],
153
            'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)'
154
        );
155
    }
156
153
157
    warning_is { GetAuthorisedValues() } [], 'No warning when no parameter passed to GetAuthorisedValues';
154
    warning_is { GetAuthorisedValues() } [], 'No warning when no parameter passed to GetAuthorisedValues';
158
155
159
- 

Return to bug 30870