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

(-)a/t/db_dependent/Letters/TemplateToolkit.t (-1 / +249 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# This file is part of Koha.
4
#
5
# Copyright (C) 2016 ByWater Solutions
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
use Test::More tests => 13;
22
23
use MARC::Record;
24
25
use t::lib::TestBuilder;
26
27
use C4::Letters;
28
use C4::Members;
29
use C4::Biblio;
30
use Koha::Database;
31
use Koha::DateUtils;
32
use Koha::Biblio;
33
use Koha::Biblioitem;
34
use Koha::Item;
35
use Koha::Hold;
36
use Koha::NewsItem;
37
use Koha::Serial;
38
use Koha::Subscription;
39
use Koha::Suggestion;
40
use Koha::Checkout;
41
use Koha::Patron::Modification;
42
43
my $schema = Koha::Database->schema;
44
$schema->storage->txn_begin();
45
46
my $builder = t::lib::TestBuilder->new();
47
48
my $dbh = C4::Context->dbh;
49
$dbh->{RaiseError} = 1;
50
51
$dbh->do(q|DELETE FROM letter|);
52
53
my $date = dt_from_string;
54
55
my $library = $builder->build( { source => 'Branch' } );
56
my $patron  = $builder->build( { source => 'Borrower' } );
57
my $patron2 = $builder->build( { source => 'Borrower' } );
58
59
my $biblio = Koha::Biblio->new(
60
    {
61
        title => 'Test Biblio'
62
    }
63
)->store();
64
65
my $biblioitem = Koha::Biblioitem->new(
66
    {
67
        biblionumber => $biblio->id()
68
    }
69
)->store();
70
71
my $item = Koha::Item->new(
72
    {
73
        biblionumber     => $biblio->id(),
74
        biblioitemnumber => $biblioitem->id()
75
    }
76
)->store();
77
78
my $hold = Koha::Hold->new(
79
    {
80
        borrowernumber => $patron->{borrowernumber},
81
        biblionumber   => $biblio->id()
82
    }
83
)->store();
84
85
my $news         = Koha::NewsItem->new()->store();
86
my $serial       = Koha::Serial->new()->store();
87
my $subscription = Koha::Subscription->new()->store();
88
my $suggestion   = Koha::Suggestion->new()->store();
89
my $checkout     = Koha::Checkout->new( { itemnumber => $item->id() } )->store();
90
my $modification = Koha::Patron::Modification->new( { verification_token => "TEST" } )->store();
91
92
my $prepared_letter;
93
94
my $sth =
95
  $dbh->prepare(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test',?,'Test','Test',?)});
96
97
$sth->execute( "TEST_PATRON", "[% borrower.id %]" );
98
$prepared_letter = GetPreparedLetter(
99
    (
100
        module      => 'test',
101
        letter_code => 'TEST_PATRON',
102
        tables      => {
103
            borrowers => $patron->{borrowernumber},
104
        },
105
    )
106
);
107
is( $prepared_letter->{content}, $patron->{borrowernumber}, 'Patron object used correctly with scalar' );
108
109
$prepared_letter = GetPreparedLetter(
110
    (
111
        module      => 'test',
112
        letter_code => 'TEST_PATRON',
113
        tables      => {
114
            borrowers => $patron,
115
        },
116
    )
117
);
118
is( $prepared_letter->{content}, $patron->{borrowernumber}, 'Patron object used correctly with hashref' );
119
120
$prepared_letter = GetPreparedLetter(
121
    (
122
        module      => 'test',
123
        letter_code => 'TEST_PATRON',
124
        tables      => {
125
            borrowers => [ $patron->{borrowernumber} ],
126
        },
127
    )
128
);
129
is( $prepared_letter->{content}, $patron->{borrowernumber}, 'Patron object used correctly with arrayref' );
130
131
$sth->execute( "TEST_BIBLIO", "[% biblio.id %]" );
132
$prepared_letter = GetPreparedLetter(
133
    (
134
        module      => 'test',
135
        letter_code => 'TEST_BIBLIO',
136
        tables      => {
137
            biblio => $biblio->id(),
138
        },
139
    )
140
);
141
is( $prepared_letter->{content}, $biblio->id, 'Biblio object used correctly' );
142
143
$sth->execute( "TEST_LIBRARY", "[% branch.id %]" );
144
$prepared_letter = GetPreparedLetter(
145
    (
146
        module      => 'test',
147
        letter_code => 'TEST_LIBRARY',
148
        tables      => {
149
            branches => $library->{branchcode}
150
        },
151
    )
152
);
153
is( $prepared_letter->{content}, $library->{branchcode}, 'Library object used correctly' );
154
155
$sth->execute( "TEST_ITEM", "[% item.id %]" );
156
$prepared_letter = GetPreparedLetter(
157
    (
158
        module      => 'test',
159
        letter_code => 'TEST_ITEM',
160
        tables      => {
161
            items => $item->id()
162
        },
163
    )
164
);
165
is( $prepared_letter->{content}, $item->id(), 'Item object used correctly' );
166
167
$sth->execute( "TEST_NEWS", "[% news.id %]" );
168
$prepared_letter = GetPreparedLetter(
169
    (
170
        module      => 'test',
171
        letter_code => 'TEST_NEWS',
172
        tables      => {
173
            opac_news => $news->id()
174
        },
175
    )
176
);
177
is( $prepared_letter->{content}, $news->id(), 'News object used correctly' );
178
179
$sth->execute( "TEST_HOLD", "[% hold.id %]" );
180
$prepared_letter = GetPreparedLetter(
181
    (
182
        module      => 'test',
183
        letter_code => 'TEST_HOLD',
184
        tables      => {
185
            reserves => [ $patron->{borrowernumber}, $biblio->id() ]
186
        },
187
    )
188
);
189
is( $prepared_letter->{content}, $hold->id(), 'Hold object used correctly' );
190
191
$sth->execute( "TEST_SERIAL", "[% serial.id %]" );
192
$prepared_letter = GetPreparedLetter(
193
    (
194
        module      => 'test',
195
        letter_code => 'TEST_SERIAL',
196
        tables      => {
197
            serial => $serial->id()
198
        },
199
    )
200
);
201
is( $prepared_letter->{content}, $serial->id(), 'Serial object used correctly' );
202
203
$sth->execute( "TEST_SUBSCRIPTION", "[% subscription.id %]" );
204
$prepared_letter = GetPreparedLetter(
205
    (
206
        module      => 'test',
207
        letter_code => 'TEST_SUBSCRIPTION',
208
        tables      => {
209
            subscription => $subscription->id()
210
        },
211
    )
212
);
213
is( $prepared_letter->{content}, $subscription->id(), 'Subscription object used correctly' );
214
215
$sth->execute( "TEST_SUGGESTION", "[% suggestion.id %]" );
216
$prepared_letter = GetPreparedLetter(
217
    (
218
        module      => 'test',
219
        letter_code => 'TEST_SUGGESTION',
220
        tables      => {
221
            suggestions => $suggestion->id()
222
        },
223
    )
224
);
225
is( $prepared_letter->{content}, $suggestion->id(), 'Suggestion object used correctly' );
226
227
$sth->execute( "TEST_ISSUE", "[% checkout.id %]" );
228
$prepared_letter = GetPreparedLetter(
229
    (
230
        module      => 'test',
231
        letter_code => 'TEST_ISSUE',
232
        tables      => {
233
            issues => $item->id()
234
        },
235
    )
236
);
237
is( $prepared_letter->{content}, $checkout->id(), 'Checkout object used correctly' );
238
239
$sth->execute( "TEST_MODIFICATION", "[% patron_modification.id %]" );
240
$prepared_letter = GetPreparedLetter(
241
    (
242
        module      => 'test',
243
        letter_code => 'TEST_MODIFICATION',
244
        tables      => {
245
            borrower_modifications => $modification->verification_token,
246
        },
247
    )
248
);
249
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' );

Return to bug 14757