Lines 18-24
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use Test::More tests => 78; |
21 |
use Test::More tests => 80; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
Lines 431-436
warning_is {
Link Here
|
431 |
is($err, 1, "Successfully sent order."); |
431 |
is($err, 1, "Successfully sent order."); |
432 |
is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent order"); |
432 |
is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent order"); |
433 |
is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully'); |
433 |
is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully'); |
|
|
434 |
|
435 |
$dbh->do(q{DELETE FROM letter WHERE code = 'TESTACQORDER';}); |
436 |
warning_like { |
437 |
$err = SendAlerts( 'orderacquisition', $basketno , 'TESTACQORDER' ) } |
438 |
qr/No orderacquisition TESTACQORDER letter transported by email/, |
439 |
"GetPreparedLetter warns about missing notice template"; |
440 |
is($err->{'error'}, 'no_letter', "No TESTACQORDER letter was defined."); |
434 |
} |
441 |
} |
435 |
|
442 |
|
436 |
|
443 |
|
437 |
- |
|
|