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