| Lines 19-25
          
      
      
        Link Here | 
        
          | 19 | use strict; | 19 | use strict; | 
        
          | 20 | use warnings; | 20 | use warnings; | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | use Test::More tests => 25; | 22 | use Test::More tests => 26; | 
        
          | 23 | use Test::Warn; | 23 | use Test::Warn; | 
        
          | 24 |  | 24 |  | 
        
          | 25 | BEGIN { | 25 | BEGIN { | 
  
    | Lines 192-207
          $sth = $dbh->prepare(
      
      
        Link Here | 
        
          | 192 | my $days = 5; | 192 | my $days = 5; | 
        
          | 193 |  | 193 |  | 
        
          | 194 | my @test_data = ( | 194 | my @test_data = ( | 
          
            
              | 195 |     { amount => 0  , days_ago => 0         , description =>'purge_zero_balance_fees should not delete 0 balance fees with date today'                     , delete => 0 } , | 195 |     { amount => 0     , days_ago => 0         , description =>'purge_zero_balance_fees should not delete 0 balance fees with date today'                     , delete => 0 } , | 
            
              | 196 |     { amount => 0  , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete 0 balance fees with date before threshold day'      , delete => 0 } , | 196 |     { amount => 0     , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete 0 balance fees with date before threshold day'      , delete => 0 } , | 
            
              | 197 |     { amount => 0  , days_ago => $days     , description =>'purge_zero_balance_fees should not delete 0 balance fees with date on threshold day'          , delete => 0 } , | 197 |     { amount => 0     , days_ago => $days     , description =>'purge_zero_balance_fees should not delete 0 balance fees with date on threshold day'          , delete => 0 } , | 
            
              | 198 |     { amount => 0  , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete 0 balance fees with date after threshold day'           , delete => 1 } , | 198 |     { amount => 0     , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete 0 balance fees with date after threshold day'           , delete => 1 } , | 
            
              | 199 |     { amount => 5  , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed before threshold day'  , delete => 0 } , | 199 |     { amount => undef , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete NULL balance fees with date after threshold day'        , delete => 1 } , | 
            
              | 200 |     { amount => 5  , days_ago => $days     , description =>'purge_zero_balance_fees should not delete fees with postive amout owed on threshold day'      , delete => 0 } , | 200 |     { amount => 5     , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed before threshold day'  , delete => 0 } , | 
            
              | 201 |     { amount => 5  , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed after threshold day'   , delete => 0 } , | 201 |     { amount => 5     , days_ago => $days     , description =>'purge_zero_balance_fees should not delete fees with postive amout owed on threshold day'      , delete => 0 } , | 
            
              | 202 |     { amount => -5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed before threshold day' , delete => 0 } , | 202 |     { amount => 5     , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed after threshold day'   , delete => 0 } , | 
            
              | 203 |     { amount => -5 , days_ago => $days     , description =>'purge_zero_balance_fees should not delete fees with negative amout owed on threshold day'     , delete => 0 } , | 203 |     { amount => -5    , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed before threshold day' , delete => 0 } , | 
            
              | 204 |     { amount => -5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day'  , delete => 0 } | 204 |     { amount => -5    , days_ago => $days     , description =>'purge_zero_balance_fees should not delete fees with negative amout owed on threshold day'     , delete => 0 } , | 
            
              |  |  | 205 |     { amount => -5    , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day'  , delete => 0 } | 
        
          | 205 | ); | 206 | ); | 
        
          | 206 |  | 207 |  | 
        
          | 207 | for my $data  ( @test_data ) { | 208 | for my $data  ( @test_data ) { | 
            
              | 208 | -  |  |  |