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