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 |
- |
|
|