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