From 14fb32478df76b3fd1cf89da39e5a89c242f2753 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 3 Mar 2016 10:28:56 +0000 Subject: [PATCH] Bug 15669: Add a test for GetModificationTemplates Signed-off-by: Jonathan Druart --- t/db_dependent/MarcModificationTemplates.t | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/MarcModificationTemplates.t b/t/db_dependent/MarcModificationTemplates.t index f54527e..3ea702a 100644 --- a/t/db_dependent/MarcModificationTemplates.t +++ b/t/db_dependent/MarcModificationTemplates.t @@ -1,6 +1,6 @@ use Modern::Perl; -use Test::More tests => 94; +use Test::More tests => 95; use Koha::SimpleMARC; @@ -336,6 +336,16 @@ is_deeply( \@fields_245a, [ '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'); -- 2.7.0