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 |
- |
|
|