|
Lines 5-11
Link Here
|
| 5 |
|
5 |
|
| 6 |
use strict; |
6 |
use strict; |
| 7 |
use warnings; |
7 |
use warnings; |
| 8 |
use Test::More tests => 6; |
8 |
use Test::More tests => 9; |
| 9 |
use MARC::Record; |
9 |
use MARC::Record; |
| 10 |
use C4::Biblio; |
10 |
use C4::Biblio; |
| 11 |
|
11 |
|
|
Lines 34-39
my $itemdata = &GetBiblioItemData($biblioitemnumber);
Link Here
|
| 34 |
is($itemdata->{title},$title,'First test of GetBiblioItemData to get same result of previous two GetBiblioData tests.'); |
34 |
is($itemdata->{title},$title,'First test of GetBiblioItemData to get same result of previous two GetBiblioData tests.'); |
| 35 |
is($itemdata->{isbn},$isbn,'Second test checking it returns the correct isbn.'); |
35 |
is($itemdata->{isbn},$isbn,'Second test checking it returns the correct isbn.'); |
| 36 |
|
36 |
|
|
|
37 |
my $success = 0; |
| 38 |
$field = MARC::Field->new( |
| 39 |
655, ' ', ' ', |
| 40 |
'a' => 'Auction catalogs', |
| 41 |
'9' => '1' |
| 42 |
); |
| 43 |
eval { |
| 44 |
$marc_record->append_fields($field); |
| 45 |
$success = ModBiblio($marc_record,$biblionumber,''); |
| 46 |
} or do { |
| 47 |
diag($@); |
| 48 |
$success = 0; |
| 49 |
}; |
| 50 |
ok($success, "ModBiblio handles authority-linked 655"); |
| 51 |
|
| 52 |
eval { |
| 53 |
$field->delete_subfields('a'); |
| 54 |
$marc_record->append_fields($field); |
| 55 |
$success = ModBiblio($marc_record,$biblionumber,''); |
| 56 |
} or do { |
| 57 |
diag($@); |
| 58 |
$success = 0; |
| 59 |
}; |
| 60 |
ok($success, "ModBiblio handles 655 with authority link but no heading"); |
| 61 |
|
| 62 |
eval { |
| 63 |
$field->delete_subfields('9'); |
| 64 |
$marc_record->append_fields($field); |
| 65 |
$success = ModBiblio($marc_record,$biblionumber,''); |
| 66 |
} or do { |
| 67 |
diag($@); |
| 68 |
$success = 0; |
| 69 |
}; |
| 70 |
ok($success, "ModBiblio handles 655 with no subfields"); |
| 37 |
|
71 |
|
| 38 |
# clean up after ourselves |
72 |
# clean up after ourselves |
| 39 |
DelBiblio($biblionumber); |
73 |
DelBiblio($biblionumber); |
| 40 |
- |
|
|