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