From 3e4f47fe3e0cdac61371f9fd12701cef05680134 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 7 Mar 2023 19:23:22 +0000 Subject: [PATCH] Bug 33159: Unit tests Signed-off-by: Phil Ringnalda Signed-off-by: Frank Hansen Signed-off-by: Martin Renvoize --- t/db_dependent/Heading.t | 63 ++++++++++++++++++++++++++++----- t/db_dependent/Heading_MARC21.t | 12 +++++-- 2 files changed, 64 insertions(+), 11 deletions(-) diff --git a/t/db_dependent/Heading.t b/t/db_dependent/Heading.t index 20f94ac3b3..6b47065573 100755 --- a/t/db_dependent/Heading.t +++ b/t/db_dependent/Heading.t @@ -21,6 +21,7 @@ use warnings; use Test::More tests => 4; use t::lib::Mocks; +use Test::MockModule;; BEGIN { use_ok('C4::Heading', qw( field valid_heading_subfield )); @@ -63,7 +64,8 @@ subtest "UNIMARC tests" => sub { }; subtest "_search tests" => sub { - plan tests => 3; + + plan tests => 6; t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); t::lib::Mocks::mock_preference('SearchEngine', 'Elasticsearch'); @@ -75,23 +77,66 @@ subtest "_search tests" => sub { return $search_query; }); - my $field = MARC::Field->new( '100', ' ', '', a => 'Yankovic, Al', d => '1959-,' ); + + my $field = MARC::Field->new( '650', ' ', '0', a => 'Uncles', x => 'Fiction' ); my $heading = C4::Heading->new_from_field($field); my $search_query = $heading->_search( 'match-heading' ); my $terms = $search_query->{query}->{bool}->{must}; - is_deeply( $terms->[0], { term => { 'match-heading.ci_raw' => 'Yankovic, Al 1959' } }, "Search formed as expected for a non-subject field with single punctuation mark"); + my $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Uncles generalsubdiv Fiction' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'a' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected for a subject with second indicator 0"); + $field = MARC::Field->new( '650', ' ', '3', a => 'Uncles', x => 'Fiction' ); + $heading = C4::Heading->new_from_field($field); + $search_query = $heading->_search( 'match-heading' ); + $terms = $search_query->{query}->{bool}->{must}; + $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Uncles generalsubdiv Fiction' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'd' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected with second indicator 3"); - my $field = MARC::Field->new( '100', ' ', '', a => 'Yankovic, Al', d => '1959-,', e => '[author]' ); - my $heading = C4::Heading->new_from_field($field); - my $search_query = $heading->_search( 'match-heading' ); - my $terms = $search_query->{query}->{bool}->{must}; - is_deeply( $terms->[0], { term => { 'match-heading.ci_raw' => 'Yankovic, Al 1959' } }, "Search formed as expected for a non-subject field with doulbe punctuation, hyphen+comma"); + $field = MARC::Field->new( '650', ' ', '7', a => 'Uncles', x => 'Fiction', 2 => 'special_sauce' ); + $heading = C4::Heading->new_from_field($field); + $search_query = $heading->_search( 'match-heading' ); + $terms = $search_query->{query}->{bool}->{must}; + $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Uncles generalsubdiv Fiction' } }, + { term => { 'subject-heading-thesaurus-conventions.ci_raw' => 'special_sauce' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'z' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected with second indicator 7 and subfield 2"); + + $field = MARC::Field->new( '100', ' ', '', a => 'Yankovic, Al', d => '1959-,' ); + $heading = C4::Heading->new_from_field($field); + $search_query = $heading->_search( 'match-heading' ); + $terms = $search_query->{query}->{bool}->{must}; + $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Yankovic, Al 1959' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'a' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected for a non-subject field with single punctuation mark"); + + $field = MARC::Field->new( '100', ' ', '', a => 'Yankovic, Al', d => '1959-,', e => '[author]' ); + $heading = C4::Heading->new_from_field($field); + $search_query = $heading->_search( 'match-heading' ); + $terms = $search_query->{query}->{bool}->{must}; + $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Yankovic, Al 1959' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'a' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected for a non-subject field with double punctuation, hyphen+comma"); $field = MARC::Field->new( '100', ' ', '', a => 'Tolkien, J.R.R.,', e => '[author]' ); $heading = C4::Heading->new_from_field($field); $search_query = $heading->_search( 'match-heading' ); $terms = $search_query->{query}->{bool}->{must}; - is_deeply( $terms->[0], { term => { 'match-heading.ci_raw' => 'Tolkien, J.R.R' } }, "Search formed as expected for a non-subject field with double punctuation, period+comma "); + $expected_terms = [ + { term => { 'match-heading.ci_raw' => 'Tolkien, J.R.R' } }, + { term => { 'subject-heading-thesaurus.ci_raw' => 'a' } }, + ]; + is_deeply( $terms, $expected_terms, "Search formed as expected for a non-subject field with double punctuation, period+comma "); }; diff --git a/t/db_dependent/Heading_MARC21.t b/t/db_dependent/Heading_MARC21.t index 357d3126d4..32bd0a07cc 100755 --- a/t/db_dependent/Heading_MARC21.t +++ b/t/db_dependent/Heading_MARC21.t @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More tests => 5; +use Test::More tests => 10; use C4::Context; BEGIN { @@ -15,14 +15,22 @@ BEGIN { SKIP: { skip "MARC21 heading tests not applicable to UNIMARC", 2 if C4::Context->preference('marcflavour') eq 'UNIMARC'; - my $field = MARC::Field->new( '650', ' ', '0', a => 'Uncles', x => 'Fiction' ); + my $field = MARC::Field->new( '650', ' ', '2', a => 'Uncles', x => 'Fiction' ); my $heading = C4::Heading->new_from_field($field); is($heading->display_form(), 'Uncles--Fiction', 'Display form generation'); is($heading->search_form(), 'Uncles generalsubdiv Fiction', 'Search form generation'); + is($heading->{thesaurus}, 'mesh', 'Thesaurus generation'); $field = MARC::Field->new( '830', ' ', '4', a => 'The dark is rising ;', v => '3' ); $heading = C4::Heading->new_from_field($field); is($heading->display_form(), 'The dark is rising ;', 'Display form generation'); is($heading->search_form(), 'The dark is rising', 'Search form generation'); + is($heading->{thesaurus}, 'lcsh', 'Thesaurus generation'); + + $field = MARC::Field->new( '100', '1', '', a => 'Yankovic, Al', d => '1959-' ); + $heading = C4::Heading->new_from_field($field); + is($heading->display_form(), 'Yankovic, Al 1959-', 'Display form generation'); + is($heading->search_form(), 'Yankovic, Al 1959', 'Search form generation'); + is($heading->{thesaurus}, 'lcsh', 'Thesaurus generation'); } -- 2.39.2