| Lines 18-24
          
      
      
        Link Here | 
        
          | 18 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | 18 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
          
            
              | 21 | use Test::More tests => 122; | 21 | use Test::More tests => 124; | 
            
              |  |  | 22 | use Test::Warn; | 
        
          | 22 |  | 23 |  | 
        
          | 23 | # To be replaced by t::lib::Mock | 24 | # To be replaced by t::lib::Mock | 
        
          | 24 | use Test::MockModule; | 25 | use Test::MockModule; | 
  
    | Lines 63-76
          subtest 'test_attributes' => sub {
      
      
        Link Here | 
        
          | 63 |  | 64 |  | 
        
          | 64 | # Tests for Koha::Patrons::Import::import_patrons() | 65 | # Tests for Koha::Patrons::Import::import_patrons() | 
        
          | 65 | # Given ... nothing much. When ... Then ... | 66 | # Given ... nothing much. When ... Then ... | 
          
            
              | 66 | my $result = $patrons_import->import_patrons(undef); | 67 | my $result; | 
            
              |  |  | 68 | warning_is { $result = $patrons_import->import_patrons(undef) } | 
            
              | 69 |            { carped => 'No file handle passed in!' }, | 
            
              | 70 |            " Koha::Patrons::Import->import_patrons carps if no file handle is passed"; | 
        
          | 67 | is($result, undef, 'Got the expected undef from import_patrons with nothing much'); | 71 | is($result, undef, 'Got the expected undef from import_patrons with nothing much'); | 
        
          | 68 |  | 72 |  | 
        
          | 69 | # Given ... some params but no file handle. | 73 | # Given ... some params but no file handle. | 
        
          | 70 | my $params_0 = { some_stuff => 'random stuff', }; | 74 | my $params_0 = { some_stuff => 'random stuff', }; | 
        
          | 71 |  | 75 |  | 
        
          | 72 | # When ... Then ... | 76 | # When ... Then ... | 
          
            
              | 73 | my $result_0 = $patrons_import->import_patrons($params_0); | 77 | my $result_0; | 
            
              |  |  | 78 | warning_is { $result_0 = $patrons_import->import_patrons($params_0) } | 
            
              | 79 |            { carped => 'No file handle passed in!' }, | 
            
              | 80 |            " Koha::Patrons::Import->import_patrons carps if no file handle is passed"; | 
        
          | 74 | is($result_0, undef, 'Got the expected undef from import_patrons with no file handle'); | 81 | is($result_0, undef, 'Got the expected undef from import_patrons with no file handle'); | 
        
          | 75 |  | 82 |  | 
        
          | 76 | # Given ... a file handle to file with headers only. | 83 | # Given ... a file handle to file with headers only. | 
  
    | Lines 622-625
          sub make_csv {
      
      
        Link Here | 
        
          | 622 |     return $filename; | 629 |     return $filename; | 
        
          | 623 | } | 630 | } | 
        
          | 624 |  | 631 |  | 
          
            
              | 625 | 1; | 632 | 1; | 
            
              | 626 | -  |  |  |