Bug 12554: (regression test) C4::Biblio::GetMarcPrice does not handle NORMARC

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 78e2bad..05b0a9d 100644 (file)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -33,6 +33,7 @@ use Module::Load::Conditional qw(can_load);
 use C4::Koha;
 use C4::Dates qw/format_date/;
 use C4::Log;    # logaction
+use C4::Budgets;
 use C4::ClassSource;
 use C4::Charset;
 use C4::Linker;

diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
index ca6c678..137946e 100755 (executable)
--- a/t/db_dependent/Biblio.t
+++ b/t/db_dependent/Biblio.t
@@ -33,7 +33,7 @@ $dbh->{AutoCommit} = 0;
 $dbh->{RaiseError} = 1;
 
 # Mocking variables
-my $context             = new Test::MockModule('C4::Context');
+my $context = new Test::MockModule('C4::Context');
 
 mock_marcfromkohafield();
 
@@ -178,7 +178,8 @@ sub run_tests {
         is( $isbns->[$i], $more_isbns[$i],
             "(GetMarcISBN) Corretly retrieves ISBN #". ($i + 1));
     }
-
+    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
+        "GetMarcPrice returns the correct value");
 }
 
 sub mock_marcfromkohafield {
@@ -230,7 +231,7 @@ sub create_isbn_field {
     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' );
+    $field->add_subfields( $price_subfield => '$100' );
 
     return $field;
 }
@@ -245,19 +246,19 @@ sub create_issn_field {
 }
 
 subtest 'MARC21' => sub {
-    plan tests => 25;
+    plan tests => 26;
     run_tests('MARC21');
     $dbh->rollback;
 };
 
 subtest 'UNIMARC' => sub {
-    plan tests => 25;
+    plan tests => 26;
     run_tests('UNIMARC');
     $dbh->rollback;
 };
 
 subtest 'NORMARC' => sub {
-    plan tests => 25;
+    plan tests => 26;
     run_tests('NORMARC');
     $dbh->rollback;
 };