View | Details | Raw Unified | Return to bug 22025
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Patrons/Import.t (-3 / +5 lines)
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 => 157;
21
use Test::More tests => 158;
22
use Test::Warn;
22
use Test::Warn;
23
use Encode qw( encode_utf8 );
23
use Encode qw( encode_utf8 );
24
use utf8;
24
use utf8;
Lines 165-171 open(my $handle_3a, "<", $filename_3a) or die "cannot open < $filename_3: $!"; Link Here
165
my $params_3a = { file => $handle_3a, matchpoint => 'cardnumber', overwrite_cardnumber => 1};
165
my $params_3a = { file => $handle_3a, matchpoint => 'cardnumber', overwrite_cardnumber => 1};
166
166
167
# When ...
167
# When ...
168
my $result_3a = $patrons_import->import_patrons($params_3a);
168
my $result_3a;
169
warning_is { $result_3a = $patrons_import->import_patrons($params_3a) }
170
           undef,
171
           "No warning raised by import_patrons";
169
172
170
# Then ...
173
# Then ...
171
is($result_3a->{already_in_db}, 0, 'Got the expected 0 already_in_db from import_patrons when matched and overwrite set');
174
is($result_3a->{already_in_db}, 0, 'Got the expected 0 already_in_db from import_patrons when matched and overwrite set');
172
- 

Return to bug 22025