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

(-)a/t/SimpleMARC.t (-2 / +48 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 10;
3
use Test::More tests => 11;
4
4
5
use_ok("MARC::Field");
5
use_ok("MARC::Field");
6
use_ok("MARC::Record");
6
use_ok("MARC::Record");
Lines 11-16 sub new_record { Link Here
11
    $record->leader('03174nam a2200445 a 4500');
11
    $record->leader('03174nam a2200445 a 4500');
12
    my @fields = (
12
    my @fields = (
13
        MARC::Field->new(
13
        MARC::Field->new(
14
            '008', '120829t20132012nyu bk 001 0ceng',
15
        ),
16
        MARC::Field->new(
14
            100, '1', ' ',
17
            100, '1', ' ',
15
            a => 'Knuth, Donald Ervin',
18
            a => 'Knuth, Donald Ervin',
16
            d => '1938',
19
            d => '1938',
Lines 1693-1695 subtest 'delete_field' => sub { Link Here
1693
        is_deeply( \@fields_952, [], 'Delete all 952, 2 deleted' );
1696
        is_deeply( \@fields_952, [], 'Delete all 952, 2 deleted' );
1694
    };
1697
    };
1695
};
1698
};
1696
- 
1699
1700
subtest 'field_equals' => sub {
1701
    plan tests => 2;
1702
    my $record = new_record;
1703
    subtest 'standard MARC fields' => sub {
1704
        plan tests => 2;
1705
        my $match = Koha::SimpleMARC::field_equals({
1706
                record => $record,
1707
                value => 'Donald',
1708
                field => '100',
1709
                subfield => 'a',
1710
            });
1711
        is_deeply( $match, [], '100$a not equal to "Donald"' );
1712
1713
        $match = Koha::SimpleMARC::field_equals({
1714
                record => $record,
1715
                value => 'Donald',
1716
                field => '100',
1717
                subfield => 'a',
1718
                is_regex => 1,
1719
            });
1720
        is_deeply( $match, [1], 'first 100$a matches "Donald"');
1721
    };
1722
1723
    subtest 'control fields' => sub {
1724
        plan tests => 2;
1725
        my $match = Koha::SimpleMARC::field_equals({
1726
                record => $record,
1727
                value => 'eng',
1728
                field => '008',
1729
                subfield => '',
1730
            });
1731
        is_deeply( $match, [], '008 control field not equal to "Donald"' );
1732
1733
        $match = Koha::SimpleMARC::field_equals({
1734
                record => $record,
1735
                value => 'eng',
1736
                field => '008',
1737
                subfield => '',
1738
                is_regex => 1,
1739
            });
1740
        is_deeply( $match, [1], 'first 008 control field matches "Donald"' );
1741
    };
1742
};

Return to bug 22571