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

(-)a/t/db_dependent/Koha/Acquisition/Orders.t (-2 / +51 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::NoWarnings;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::More tests => 5;
24
use Test::Exception;
24
use Test::Exception;
25
25
26
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
Lines 213-215 subtest 'filter_by_obsolete and cancel' => sub { Link Here
213
213
214
    $schema->storage->txn_rollback;
214
    $schema->storage->txn_rollback;
215
};
215
};
216
- 
216
217
subtest 'unreceived_totals() tests' => sub {
218
219
    plan tests => 4;
220
221
    $schema->storage->txn_begin;
222
223
    my $empty_resultset = Koha::Acquisition::Orders->search->empty();
224
225
    my $result = $empty_resultset->unreceived_totals();
226
    is( $result->{items_count},             0, 'Zero unreceived items' );
227
    is( $result->{total_replacement_price}, 0, 'Zero cost for 0 items' );
228
229
    my $rrp = 2.31;
230
231
    my $order_1 = $builder->build_object(
232
        {
233
            class => 'Koha::Acquisition::Orders',
234
            value => { quantity => 10, quantityreceived => 5, rrp => $rrp }
235
        }
236
    );
237
    my $order_2 = $builder->build_object(
238
        {
239
            class => 'Koha::Acquisition::Orders',
240
            value => { quantity => 10, quantityreceived => 4, rrp => $rrp }
241
        }
242
    );
243
    my $order_3 = $builder->build_object(
244
        {
245
            class => 'Koha::Acquisition::Orders',
246
            value => { quantity => 10, quantityreceived => 3, rrp => $rrp }
247
        }
248
    );
249
250
    my $rs = Koha::Acquisition::Orders->search(
251
        {
252
            ordernumber => [
253
                $order_1->id,
254
                $order_2->id,
255
                $order_3->id,
256
            ]
257
        }
258
    );
259
260
    $result = $rs->unreceived_totals();
261
    is( $result->{items_count},             18,        '18 unreceived items' );
262
    is( $result->{total_replacement_price}, 18 * $rrp, 'rrp * 18' );
263
264
    $schema->storage->txn_rollback;
265
};

Return to bug 39845