Koha/t/db_dependent/lib/KohaTest/Biblio.pm
Paul Poulain 49b167e848 Bug 6875 de nesting C4::Biblio
C4::Biblio is used in many many places. The goal of this cleaning is to do from C4::Biblio a package with as many dependancies as possible.

* C4::Heading is called only in 1 place, highly rarely used (only in 1 misc/link_bibs_to_authorities.pl), moving to require
* PrepareItemrecordDisplay is a sub that is more related to Items, moving it here. It means some scripts that used this sub must be checked against use C4::Items
* C4::Items is needed in EmbedItemsInMarcBiblio, moving it only in this sub, and switching to require
* 2 subs are totally useless z3950_extended_services and set_service_options, removing them

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
No test plan included, but tested some opac and cataloging functions.
Code looks good. Marked as Passed QA.
2012-02-20 16:35:17 +01:00

69 lines
2.2 KiB
Perl

package KohaTest::Biblio;
use base qw( KohaTest );
use strict;
use warnings;
use Test::More;
use C4::Biblio;
sub testing_class { 'C4::Biblio' };
sub methods : Test( 1 ) {
my $self = shift;
my @methods = qw(
AddBiblio
ModBiblio
ModBiblioframework
DelBiblio
LinkBibHeadingsToAuthorities
GetBiblioData
GetBiblioItemData
GetBiblioItemByBiblioNumber
GetBiblioFromItemNumber
GetBiblio
GetBiblioItemInfosOf
GetMarcStructure
GetUsedMarcStructure
GetMarcFromKohaField
GetMarcBiblio
GetXmlBiblio
GetAuthorisedValueDesc
GetMarcNotes
GetMarcSubjects
GetMarcAuthors
GetMarcUrls
GetMarcSeries
GetFrameworkCode
GetPublisherNameFromIsbn
TransformKohaToMarc
TransformHtmlToXml
TransformHtmlToMarc
TransformMarcToKoha
_get_inverted_marc_field_map
_disambiguate
get_koha_field_from_marc
TransformMarcToKohaOneField
ModZebra
GetNoZebraIndexes
_DelBiblioNoZebra
_AddBiblioNoZebra
_find_value
_koha_marc_update_bib_ids
_koha_marc_update_biblioitem_cn_sort
_koha_add_biblio
_koha_modify_biblio
_koha_modify_biblioitem_nonmarc
_koha_add_biblioitem
_koha_delete_biblio
_koha_delete_biblioitems
ModBiblioMarc
get_biblio_authorised_values
);
can_ok( $self->testing_class, @methods );
}
1;