From d6e91cdda5d00f75a8059f4099ce93f0d54fe55a Mon Sep 17 00:00:00 2001 From: Baptiste Wojtkowski Date: Thu, 11 Jul 2024 14:55:18 +0200 Subject: [PATCH] Bug 18086: Add categories to the db in tests See https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=18086#c27 for more context : This addresses the first point of this comment. Due to the constraint applied to categories, it is necessary that categories exist in db so I create them --- t/db_dependent/Overdues.t | 56 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) diff --git a/t/db_dependent/Overdues.t b/t/db_dependent/Overdues.t index 8faa056..a742cc9 100755 --- a/t/db_dependent/Overdues.t +++ b/t/db_dependent/Overdues.t @@ -39,6 +39,62 @@ $dbh->do(q| ('MPL', 'bar') |); +my $samplecat = { + categorycode => 'PT', + description => 'Description1', + enrolmentperiod => undef, + enrolmentperioddate => undef, + dateofbirthrequired => undef, + finetype => undef, + bulk => undef, + enrolmentfee => undef, + overduenoticerequired => undef, + issuelimit => undef, + reservefee => undef, + hidelostitems => 0, + category_type => 'A', +}; +my $query = +"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)"; +$dbh->do( + $query, {}, + $samplecat->{categorycode}, $samplecat->{description}, + $samplecat->{enrolmentperiod}, $samplecat->{enrolmentperioddate}, + $samplecat->{dateofbirthrequired}, $samplecat->{finetype}, + $samplecat->{bulk}, $samplecat->{enrolmentfee}, + $samplecat->{overduenoticerequired}, $samplecat->{issuelimit}, + $samplecat->{reservefee}, $samplecat->{hidelostitems}, + $samplecat->{category_type} +); + +my $samplecat2 = { + categorycode => 'YA', + description => 'Description1', + enrolmentperiod => undef, + enrolmentperioddate => undef, + dateofbirthrequired => undef, + finetype => undef, + bulk => undef, + enrolmentfee => undef, + overduenoticerequired => undef, + issuelimit => undef, + reservefee => undef, + hidelostitems => 0, + category_type => 'A', +}; +my $query2 = +"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)"; +$dbh->do( + $query2, {}, + $samplecat2->{categorycode}, $samplecat2->{description}, + $samplecat2->{enrolmentperiod}, $samplecat2->{enrolmentperioddate}, + $samplecat2->{dateofbirthrequired}, $samplecat2->{finetype}, + $samplecat2->{bulk}, $samplecat2->{enrolmentfee}, + $samplecat2->{overduenoticerequired}, $samplecat2->{issuelimit}, + $samplecat2->{reservefee}, $samplecat2->{hidelostitems}, + $samplecat2->{category_type} +); + $dbh->do(q| -- 2.43.0