View | Details | Raw Unified | Return to bug 5683
Collapse All | Expand All

(-)a/t/db_dependent/Biblio.t (-2 / +35 lines)
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
- 

Return to bug 5683