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

(-)a/t/db_dependent/MarcModificationTemplates.t (-2 / +11 lines)
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
- 

Return to bug 15669