use Modern::Perl;
-use Test::More tests => 94;
+use Test::More tests => 95;
use Koha::SimpleMARC;
'Bad title'
], 'delete field has been deleted the right field"' );
+subtest 'GetModificationTemplates' => sub {
+ plan tests => 1;
+ $dbh->do(q|DELETE FROM marc_modification_templates|);
+ AddModificationTemplate("zzz");
+ AddModificationTemplate("aaa");
+ AddModificationTemplate("mmm");
+ my @templates = GetModificationTemplates();
+ is_deeply( [map{$_->{name}} @templates], ['aaa', 'mmm', 'zzz'] );
+};
+
sub new_record {
my $record = MARC::Record->new;
$record->leader('03174nam a2200445 a 4500');