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

(-)a/t/db_dependent/Koha/Acquisition/Basket.t (-2 / +41 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 12;
22
use Test::More tests => 13;
23
use Test::Exception;
23
use Test::Exception;
24
24
25
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
Lines 303-308 subtest 'orders' => sub { Link Here
303
    $schema->storage->txn_rollback;
303
    $schema->storage->txn_rollback;
304
};
304
};
305
305
306
subtest 'edi_order' => sub {
307
308
    plan tests => 3;
309
310
    $schema->storage->txn_begin;
311
312
    my $basket = $builder->build_object(
313
        {
314
            class => 'Koha::Acquisition::Baskets'
315
        }
316
    );
317
318
    is( $basket->edi_order, undef,
319
        'edi_order returns undefined if there are no edi_messages of type "ORDER" attached' );
320
321
    my $order_message_1 = $builder->build(
322
        {
323
            source => 'EdifactMessage',
324
            value  => { basketno => $basket->basketno, message_type => 'ORDERS', transfer_date => '2019-07-30' }
325
        }
326
    );
327
328
    my $edi_message = $basket->edi_order;
329
    is( ref($edi_message), 'Koha::Schema::Result::EdifactMessage',
330
        'edi_order returns an EdifactMessage if one is attached' );
331
332
    my $order_message_2 = $builder->build(
333
        {
334
            source => 'EdifactMessage',
335
            value  => { basketno => $basket->basketno, message_type => 'ORDERS' }
336
        }
337
    );
338
339
    $edi_message = $basket->edi_order;
340
    is( $edi_message->id, $order_message_2->{id},
341
        'edi_order returns the most recently associated ORDERS EdifactMessage' );
342
  
343
    $schema->storage->txn_rollback;
344
};
345
306
subtest 'is_closed() tests' => sub {
346
subtest 'is_closed() tests' => sub {
307
347
308
    plan tests => 2;
348
    plan tests => 2;
309
- 

Return to bug 28640