Lines 1-6
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
|
2 |
|
3 |
use Test::More tests => 94; |
3 |
use Test::More tests => 95; |
4 |
|
4 |
|
5 |
use Koha::SimpleMARC; |
5 |
use Koha::SimpleMARC; |
6 |
|
6 |
|
Lines 336-341
is_deeply( \@fields_245a, [
Link Here
|
336 |
'Bad title' |
336 |
'Bad title' |
337 |
], 'delete field has been deleted the right field"' ); |
337 |
], 'delete field has been deleted the right field"' ); |
338 |
|
338 |
|
|
|
339 |
subtest 'GetModificationTemplates' => sub { |
340 |
plan tests => 1; |
341 |
$dbh->do(q|DELETE FROM marc_modification_templates|); |
342 |
AddModificationTemplate("zzz"); |
343 |
AddModificationTemplate("aaa"); |
344 |
AddModificationTemplate("mmm"); |
345 |
my @templates = GetModificationTemplates(); |
346 |
is_deeply( [map{$_->{name}} @templates], ['aaa', 'mmm', 'zzz'] ); |
347 |
}; |
348 |
|
339 |
sub new_record { |
349 |
sub new_record { |
340 |
my $record = MARC::Record->new; |
350 |
my $record = MARC::Record->new; |
341 |
$record->leader('03174nam a2200445 a 4500'); |
351 |
$record->leader('03174nam a2200445 a 4500'); |
342 |
- |
|
|