Bug 37398: Add a unit test

Signed-off-by: Phil Ringnalda <phil@chetcolibrary.org>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit b2f317a767)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
This commit is contained in:
Lucas Gass 2024-09-12 17:35:15 +00:00 committed by Paul Derscheid
parent 2d4b406742
commit 7e6d3f4c3f
No known key found for this signature in database
GPG Key ID: C25F9FD44CED595B
1 changed files with 28 additions and 1 deletions

View File

@ -16,7 +16,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Test::More tests => 9;
use Test::More tests => 10;
use Test::MockModule;
use Data::Dumper qw( Dumper );
use utf8;
@ -239,6 +239,33 @@ subtest 'default_branches_empty' => sub {
is( $subfield->{marc_value}->{values}->[0], "", 'empty option for branches if default_branches_empty passed' );
};
subtest 'kohafields_to_add_datepicker' => sub {
plan tests => 5;
my $biblio =
$builder->build_sample_biblio( { value => { frameworkcode => '' } } );
my $subfields =
Koha::UI::Form::Builder::Item->new(
{ biblionumber => $biblio->biblionumber } )->edit_form;
my @itemfield_test_cases = (
{ kohafield => 'items.dateaccessioned', expected_type => 'date' },
{ kohafield => 'items.replacementpricedate', expected_type => 'date' },
{ kohafield => 'items.datelastborrowed', expected_type => 'date' },
{ kohafield => 'items.onloan', expected_type => 'date' },
{ kohafield => 'items.datelastseen', expected_type => 'datetime' },
);
foreach my $itemfield_test_case (@itemfield_test_cases) {
my ( $subfield ) = grep { $_->{kohafield} eq $itemfield_test_case->{kohafield} } @$subfields;
if ( $subfield ) {
is( $subfield->{datetype}, $itemfield_test_case->{expected_type}, "Correct datetype for $itemfield_test_case->{kohafield}" );
} else {
ok( 0, "Subfield for $itemfield_test_case->{kohafield} not found" );
}
}
};
subtest 'kohafields_to_ignore' => sub {
plan tests => 2;