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:
parent
2d4b406742
commit
7e6d3f4c3f
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue