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

(-)a/t/Number/Price.t (-2 / +28 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 36;
3
use Test::More tests => 37;
4
4
5
use Test::MockModule;
5
use Test::MockModule;
6
use t::lib::Mocks;
6
use t::lib::Mocks;
Lines 152-154 subtest 'Changes for format' => sub { # See also bug 18736 Link Here
152
        qr/\d\.\d{2}$/, 'This price still seems to be formatted' );
152
        qr/\d\.\d{2}$/, 'This price still seems to be formatted' );
153
        # Note that the comparison with MAX_INT is already subject to rounding
153
        # Note that the comparison with MAX_INT is already subject to rounding
154
};
154
};
155
- 
155
156
subtest 'Changes for default currency symbol position' => sub {
157
    plan tests => 2;
158
159
    t::lib::Mocks::mock_preference( 'CurrencyFormat', 'FR' );
160
    $currency = Koha::Acquisition::Currency->new(
161
        {
162
            currency       => 'PLN',
163
            symbol         => 'zł',
164
            rate           => 1,
165
            active         => 1,
166
            p_sep_by_space => 1,
167
            p_cs_precedes  => 1,
168
        }
169
    );
170
    is(
171
        Koha::Number::Price->new('123456.78')->format( { with_symbol => 1 } ),
172
        'zł 123 456,78',
173
        'PLN: format 123 456,78 with symbol before'
174
    );
175
    $currency->p_cs_precedes(0);
176
    is(
177
        Koha::Number::Price->new('123456.78')->format( { with_symbol => 1 } ),
178
        '123 456,78 zł',
179
        'PLN: format 123 456,78 with symbol after'
180
    );
181
};

Return to bug 37511