| 
      
            Lines 487-499
          subtest 'checkouts + get_overdues' => sub {
      
      
        Link Here
      
     | 
  
        
          | 487 | 
          };  | 
          487 | 
          };  | 
        
        
          | 488 | 
           | 
          488 | 
           | 
        
        
          | 489 | 
          subtest 'get_age' => sub { | 
          489 | 
          subtest 'get_age' => sub { | 
        
          
            
              | 490 | 
                  plan tests => 6;  | 
              490 | 
                  plan tests => 7;  | 
            
        
          | 491 | 
           | 
          491 | 
           | 
        
        
          | 492 | 
              my $patron = $builder->build( { source => 'Borrower' } ); | 
          492 | 
              my $patron = $builder->build( { source => 'Borrower' } ); | 
        
        
          | 493 | 
              $patron = Koha::Patrons->find( $patron->{borrowernumber} ); | 
          493 | 
              $patron = Koha::Patrons->find( $patron->{borrowernumber} ); | 
        
        
          | 494 | 
           | 
          494 | 
           | 
        
        
          | 495 | 
              my $today = dt_from_string;  | 
          495 | 
              my $today = dt_from_string;  | 
        
        
          | 496 | 
           | 
          496 | 
           | 
        
            
               | 
               | 
              497 | 
                  $patron->dateofbirth( undef );  | 
            
            
              | 498 | 
                  is( $patron->get_age, undef, 'get_age should return undef if no dateofbirth is defined' );  | 
            
        
          | 497 | 
              $patron->dateofbirth( $today->clone->add( years => -12, months => -6, days => -1 ) );  | 
          499 | 
              $patron->dateofbirth( $today->clone->add( years => -12, months => -6, days => -1 ) );  | 
        
        
          | 498 | 
              is( $patron->get_age, 12, 'Patron should be 12' );  | 
          500 | 
              is( $patron->get_age, 12, 'Patron should be 12' );  | 
        
        
          | 499 | 
              $patron->dateofbirth( $today->clone->add( years => -18, months => 0, days => 1 ) );  | 
          501 | 
              $patron->dateofbirth( $today->clone->add( years => -18, months => 0, days => 1 ) );  | 
        
            
              | 500 | 
              -   | 
               | 
               |