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