[Koha-patches] [Signed off] [PATCH] Add unit tests to ensure bug 5683 doesn't reappear
Chris Cormack
chrisc at catalyst.net.nz
Fri May 13 04:10:48 CEST 2011
From: Jared Camins-Esakov <jcamins at bywatersolutions.com>
Signed-off-by: Jared Camins-Esakov <jcamins at bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc at catalyst.net.nz>
---
t/db_dependent/Biblio.t | 36 +++++++++++++++++++++++++++++++++++-
1 files changed, 35 insertions(+), 1 deletions(-)
diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
index 6012f5f..dd827f0 100755
--- a/t/db_dependent/Biblio.t
+++ b/t/db_dependent/Biblio.t
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 6;
+use Test::More tests => 9;
use MARC::Record;
use C4::Biblio;
@@ -34,6 +34,40 @@ my $itemdata = &GetBiblioItemData($biblioitemnumber);
is($itemdata->{title},$title,'First test of GetBiblioItemData to get same result of previous two GetBiblioData tests.');
is($itemdata->{isbn},$isbn,'Second test checking it returns the correct isbn.');
+my $success = 0;
+$field = MARC::Field->new(
+ 655, ' ', ' ',
+ 'a' => 'Auction catalogs',
+ '9' => '1'
+ );
+eval {
+ $marc_record->append_fields($field);
+ $success = ModBiblio($marc_record,$biblionumber,'');
+} or do {
+ diag($@);
+ $success = 0;
+};
+ok($success, "ModBiblio handles authority-linked 655");
+
+eval {
+ $field->delete_subfields('a');
+ $marc_record->append_fields($field);
+ $success = ModBiblio($marc_record,$biblionumber,'');
+} or do {
+ diag($@);
+ $success = 0;
+};
+ok($success, "ModBiblio handles 655 with authority link but no heading");
+
+eval {
+ $field->delete_subfields('9');
+ $marc_record->append_fields($field);
+ $success = ModBiblio($marc_record,$biblionumber,'');
+} or do {
+ diag($@);
+ $success = 0;
+};
+ok($success, "ModBiblio handles 655 with no subfields");
# clean up after ourselves
DelBiblio($biblionumber);
--
1.7.4.1
More information about the Koha-patches
mailing list