Run:
$ prove -v t/db_dependent/Biblio.t
=> FAIL: GetMarcISBN doesn't return the expected value for ISBN
in MARC21, NORMARC and UNIMARC
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Test fails, no koha-qa errors.
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
use Modern::Perl;
-use Test::More tests => 3;
+use Test::More tests => 4;
use Test::MockModule;
use MARC::Record;
sub {
my ( $self ) = shift;
- if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
+ if ( C4::Context->preference('marcflavour') eq 'MARC21' ||
+ C4::Context->preference('marcflavour') eq 'NORMARC' ) {
return {
'' => {
my $isbn_field = ( $marcflavour eq 'UNIMARC' ) ? '010' : '020';
my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn);
+ # Add the price subfield
+ my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ;
+ $field->add_subfields( $price_subfield => '100' );
return $field;
}
$dbh->rollback;
};
+subtest 'NORMARC' => sub {
+ plan tests => 25;
+ run_tests('NORMARC');
+ $dbh->rollback;
+};
+
1;