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

(-)a/xt/verify_bib1.att.t (-1 / +47 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use Test::More tests => 2;
21
22
foreach my $record_type ( qw( biblios authorities ) ) {
23
24
    subtest "bib1.att tests for $record_type" => sub {
25
26
        my $bib1_att = "etc/zebradb/$record_type/etc/bib1.att";
27
28
        my $att_codes = {};
29
30
        open my $fh, '<', $bib1_att or die "Cannot open file $bib1_att: $!\n";
31
32
        while (<$fh>) {
33
34
            chomp;
35
36
            if ( $_ =~ m/^att\s(?<code>\d+)/ ) {
37
                $att_codes->{ $+{code} }++;
38
            }
39
        }
40
41
        foreach my $code (keys %{$att_codes}) {
42
            is( $att_codes->{$code}, 1, "Only one occurrence for code ($code)" );
43
        }
44
    };
45
}
46
47
1;

Return to bug 32741