| Lines 19-29
          
      
      
        Link Here | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | use Test::More tests => 11; | 22 | use Test::More tests => 12; | 
        
          | 23 | use Test::Warn; | 23 | use Test::Warn; | 
        
          | 24 | use Data::Dumper qw(Dumper); | 24 | use Data::Dumper qw(Dumper); | 
        
          | 25 |  | 25 |  | 
        
          | 26 | use Koha::Database; | 26 | use Koha::Database; | 
            
              |  |  | 27 | use Koha::Patrons; | 
        
          | 27 |  | 28 |  | 
        
          | 28 | BEGIN { | 29 | BEGIN { | 
        
          | 29 |     use_ok('t::lib::TestBuilder'); | 30 |     use_ok('t::lib::TestBuilder'); | 
  
    | Lines 343-346
          subtest 'Default values' => sub {
      
      
        Link Here | 
        
          | 343 |  | 344 |  | 
        
          | 344 | $schema->storage->txn_rollback; | 345 | $schema->storage->txn_rollback; | 
        
          | 345 |  | 346 |  | 
            
              |  |  | 347 | subtest 'build_object() tests' => sub { | 
            
              | 348 |  | 
            
              | 349 |     plan tests => 7; | 
            
              | 350 |  | 
            
              | 351 |     $schema->storage->txn_begin; | 
            
              | 352 |  | 
            
              | 353 |     $builder = t::lib::TestBuilder->new(); | 
            
              | 354 |     my $patron = $builder->build_object( | 
            
              | 355 |         {   class => 'Koha::Patrons', | 
            
              | 356 |             id    => 'borrowernumber', | 
            
              | 357 |             value => { firstname => 'Tomasito', surname => 'None' } | 
            
              | 358 |         } | 
            
              | 359 |     ); | 
            
              | 360 |  | 
            
              | 361 |     is( ref($patron),       'Koha::Patron', 'Type is correct' ); | 
            
              | 362 |     is( $patron->firstname, 'Tomasito',     'Firstname correctly set' ); | 
            
              | 363 |     is( $patron->surname,   'None',         'Firstname correctly set' ); | 
            
              | 364 |  | 
            
              | 365 |     warning_is | 
            
              | 366 |         { $patron = $builder->build_object({ class => 'Koha::Patrons' }); } | 
            
              | 367 |         { carped => 'Missing id param' }, | 
            
              | 368 |         'The id parameter is mandatory, raises a warning if absent'; | 
            
              | 369 |     is( $patron, undef, 'If the id parameter is missing, undef is returned' ); | 
            
              | 370 |  | 
            
              | 371 |     warning_is | 
            
              | 372 |         { $patron = $builder->build_object({ id => 'borrowernumber' }); } | 
            
              | 373 |         { carped => 'Missing class param' }, | 
            
              | 374 |         'The class parameter is mandatory, raises a warning if absent'; | 
            
              | 375 |     is( $patron, undef, 'If the class parameter is missing, undef is returned' ); | 
            
              | 376 |  | 
            
              | 377 |     $schema->storage->txn_rollback; | 
            
              | 378 | }; | 
            
              | 379 |  | 
        
          | 346 | 1; | 380 | 1; |