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

(-)a/t/Biblio_GetMarcSubfieldStructureFromKohaField.t (-30 lines)
Lines 1-30 Link Here
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
use Test::More tests => 24;
5
use Data::Dumper;
6
7
BEGIN {
8
    use_ok('C4::Biblio');
9
}
10
11
my @columns = qw(
12
    tagfield tagsubfield liblibrarian libopac repeatable mandatory kohafield tab
13
    authorised_value authtypecode value_builder isurl hidden frameworkcode
14
    seealso link defaultvalue maxlength
15
);
16
17
# biblio.biblionumber must be mapped so this should return something
18
my $marc_subfield_structure = GetMarcSubfieldStructureFromKohaField('biblio.biblionumber', '');
19
20
ok(defined $marc_subfield_structure, "There is a result");
21
is(ref $marc_subfield_structure, "HASH", "Result is a hashref");
22
foreach my $col (@columns) {
23
    ok(exists $marc_subfield_structure->{$col}, "Hashref contains key '$col'");
24
}
25
is($marc_subfield_structure->{kohafield}, 'biblio.biblionumber', "Result is the good result");
26
like($marc_subfield_structure->{tagfield}, qr/^\d{3}$/, "tagfield is a valid tagfield");
27
28
# foo.bar does not exist so this should return undef
29
$marc_subfield_structure = GetMarcSubfieldStructureFromKohaField('foo.bar', '');
30
is($marc_subfield_structure, undef, "invalid kohafield returns undef");
(-)a/t/db_dependent/Biblio.t (-2 / +25 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::More tests => 5;
21
use Test::MockModule;
21
use Test::MockModule;
22
22
23
use MARC::Record;
23
use MARC::Record;
Lines 277-281 subtest 'NORMARC' => sub { Link Here
277
    $dbh->rollback;
277
    $dbh->rollback;
278
};
278
};
279
279
280
subtest 'GetMarcSubfieldStructureFromKohaField' => sub {
281
    plan tests => 23;
282
283
    my @columns = qw(
284
        tagfield tagsubfield liblibrarian libopac repeatable mandatory kohafield tab
285
        authorised_value authtypecode value_builder isurl hidden frameworkcode
286
        seealso link defaultvalue maxlength
287
    );
288
289
    # biblio.biblionumber must be mapped so this should return something
290
    my $marc_subfield_structure = GetMarcSubfieldStructureFromKohaField('biblio.biblionumber', '');
291
292
    ok(defined $marc_subfield_structure, "There is a result");
293
    is(ref $marc_subfield_structure, "HASH", "Result is a hashref");
294
    foreach my $col (@columns) {
295
        ok(exists $marc_subfield_structure->{$col}, "Hashref contains key '$col'");
296
    }
297
    is($marc_subfield_structure->{kohafield}, 'biblio.biblionumber', "Result is the good result");
298
    like($marc_subfield_structure->{tagfield}, qr/^\d{3}$/, "tagfield is a valid tagfield");
299
300
    # foo.bar does not exist so this should return undef
301
    $marc_subfield_structure = GetMarcSubfieldStructureFromKohaField('foo.bar', '');
302
    is($marc_subfield_structure, undef, "invalid kohafield returns undef");
303
};
280
304
281
1;
305
1;
282
- 

Return to bug 7683