From 8eb24ccf102779d01671f09988a02065ac117d0d Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 2 Mar 2022 14:18:55 +0000 Subject: [PATCH] Bug 29005: Unit tests Add a unit test for the additional functionality of sending welcome emails from Koha::Patrons::Import. Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer Signed-off-by: Fridolin Somers --- t/db_dependent/Koha/Patrons/Import.t | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Patrons/Import.t b/t/db_dependent/Koha/Patrons/Import.t index 0d1eb8ff1e..bf16c1e118 100755 --- a/t/db_dependent/Koha/Patrons/Import.t +++ b/t/db_dependent/Koha/Patrons/Import.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 173; +use Test::More tests => 174; use Test::Warn; use Test::Exception; use Encode qw( encode_utf8 ); @@ -1143,6 +1143,32 @@ subtest 'patron_attributes' => sub { }; +subtest 'welcome_email' => sub { + + plan tests => 3; + + #Setup our info + my $branchcode = $builder->build({ source => "Branch"})->{branchcode}; + my $categorycode = $builder->build({ source => "Category", value => { category_type => 'A' } })->{categorycode}; + my $staff_categorycode = $builder->build({ source => "Category", value => { category_type => 'S' } })->{categorycode}; + my $csv_headers = 'surname,userid,branchcode,categorycode,password,email'; + my $csv_new = "Spagobi,EldridgeS,$branchcode,$categorycode,H4ckR".',me@myemail.com'; + my $defaults = { cardnumber => "" }; #currently all the defaults come as "" if not filled + + #Make the test files for importing + my $filename_1 = make_csv($temp_dir, $csv_headers, $csv_new); + open(my $handle_1, "<", $filename_1) or die "cannot open < $filename_1: $!"; + + my $params_1 = { file => $handle_1, matchpoint => 'userid', overwrite_passwords => 1, overwrite_cardnumber => 1, send_welcome => 1}; + + my $result = $patrons_import->import_patrons($params_1, $defaults); + is($result->{already_in_db}, 0, 'New borrower imported as expected'); + is($result->{feedback}->[3]->{name}, 'welcome_sent', 'Email send reported'); + my $eldridge = Koha::Patrons->find({ userid => 'EldridgeS'}); + my $notices = Koha::Notice::Messages->search({ borrowernumber => $eldridge->borrowernumber }); + is($notices->count, 1, 'Notice was queued'); +}; + # got is { code => $code, attribute => $attribute } # expected is { $code => \@attributes } sub compare_patron_attributes { -- 2.39.5