t/db_dependent/Letters/GetLetterTemplates.t

   1 use Modern::Perl;
   2 use Test::More tests => 7;
   3
   4 use C4::Context;
   5 use C4::Letters qw( GetLetterTemplates );
   6
   7 my $dbh = C4::Context->dbh;
   8 $dbh->{RaiseError} = 1;
   9 $dbh->{AutoCommit} = 0;
  10
  11 $dbh->do(q|DELETE FROM letter|);
  12
  13 my $letters = [
  14     {
  15         module                 => 'circulation',
  16         code                   => 'code1',
  17         branchcode             => '',
  18         name                   => 'B default name for code1 circ',
  19         is_html                => 0,
  20         title                  => 'default title for code1 email',
  21         content                => 'default content for code1 email',
  22         message_transport_type => 'email',
  23     },
  24     {
  25         module                 => 'circulation',
  26         code                   => 'code1',
  27         branchcode             => '',
  28         name                   => 'B default name for code1 circ',
  29         is_html                => 0,
  30         title                  => 'default title for code1 sms',
  31         content                => 'default content for code1 sms',
  32         message_transport_type => 'sms',
  33     },
  34     {
  35         module                 => 'circulation',
  36         code                   => 'code2',
  37         branchcode             => '',
  38         name                   => 'A default name for code2 circ',
  39         is_html                => 0,
  40         title                  => 'default title for code2 email',
  41         content                => 'default content for code2 email',
  42         message_transport_type => 'email',
  43     },
  44     {
  45         module                 => 'circulation',
  46         code                   => 'code3',
  47         branchcode             => '',
  48         name                   => 'C default name for code3 circ',
  49         is_html                => 0,
  50         title                  => 'default title for code3 email',
  51         content                => 'default content for code3 email',
  52         message_transport_type => 'email',
  53     },
  54
  55     {
  56         module                 => 'cataloguing',
  57         code                   => 'code1',
  58         branchcode             => '',
  59         name                   => 'default name for code1 cat',
  60         is_html                => 0,
  61         title                  => 'default title for code1 cat email',
  62         content                => 'default content for code1 cat email',
  63         message_transport_type => 'email',
  64     },
  65
  66     {
  67         module                 => 'circulation',
  68         code                   => 'code1',
  69         branchcode             => 'CPL',
  70         name                   => 'B CPL name for code1 circ',
  71         is_html                => 0,
  72         title                  => 'CPL title for code1 email',
  73         content                => 'CPL content for code1 email',
  74         message_transport_type => 'email',
  75     },
  76     {
  77         module                 => 'circulation',
  78         code                   => 'code2',
  79         branchcode             => 'CPL',
  80         name                   => 'A CPL name for code1 circ',
  81         is_html                => 0,
  82         title                  => 'CPL title for code1 sms',
  83         content                => 'CPL content for code1 sms',
  84         message_transport_type => 'sms',
  85     },
  86     {
  87         module                 => 'circulation',
  88         code                   => 'code1',
  89         branchcode             => 'MPL',
  90         name                   => 'B MPL name for code1 circ',
  91         is_html                => 0,
  92         title                  => 'MPL title for code1 email',
  93         content                => 'MPL content for code1 email',
  94         message_transport_type => 'email',
  95     },
  96 ];
  97
  98 my $sth = $dbh->prepare(
  99 q|INSERT INTO letter(module, code, branchcode, name, title, content, message_transport_type) VALUES (?, ?, ?, ?, ?, ?, ?)|
 100 );
 101 for my $l (@$letters) {
 102     $sth->execute( $l->{module}, $l->{code}, $l->{branchcode}, $l->{name},
 103         $l->{title}, $l->{content}, $l->{message_transport_type} );
 104 }
 105
 106 my $letter_templates;
 107 $letter_templates = C4::Letters::GetLetterTemplates;
 108 is_deeply( $letter_templates, {},
 109     'GetLetterTemplates should not return templates if not param is given' );
 110
 111 $letter_templates = C4::Letters::GetLetterTemplates(
 112     { module => 'circulation', code => 'code1', branchcode => '' } );
 113 is( scalar( keys %$letter_templates ),
 114     2, '2 default templates should exist for circulation code1' );
 115 is( exists( $letter_templates->{email} ),
 116     1, 'The mtt email should exist for circulation code1' );
 117 is( exists( $letter_templates->{sms} ),
 118     1, 'The mtt sms should exist for circulation code1' );
 119
 120 $letter_templates = C4::Letters::GetLetterTemplates(
 121     { module => 'circulation', code => 'code1', branchcode => 'CPL' } );
 122 is( scalar( keys %$letter_templates ),
 123     1, '1 template should exist for circulation CPL code1' );
 124 is( exists( $letter_templates->{email} ),
 125     1, 'The mtt should be email for circulation CPL code1' );
 126
 127 $letter_templates = C4::Letters::GetLetterTemplates(
 128     { module => 'circulation', code => 'code1' } );
 129 is( scalar( keys %$letter_templates ),
 130     2, '2 default templates should exist for circulation code1 (even if branchcode is not given)' );