|
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 |
- |
|
|