Attachment #46073 for bug #15429

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




# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;
use Test::More tests => 69;
use Test::MockModule;
use Test::Warn;



$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});

# Test that _parseletter doesn't modify its parameters bug 15429
{
    my $values = { dateexpiry => '2015-12-13', };
    C4::Letters::_parseletter($prepared_letter, 'borrowers', $values);
    is( $values->{dateexpiry}, '2015-12-13', "_parseletter doesn't modify its parameters" );
}

my $booksellerid = C4::Bookseller::AddBookseller(
    {
        name => "my vendor",
- 

Return to bug 15429

Lines 18-24 Link Here

(-)a/t/db_dependent/Letters.t (-2 / +8 lines)
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 => 68;	21	use Test::More tests => 69;
22	use Test::MockModule;	22	use Test::MockModule;
23	use Test::Warn;	23	use Test::Warn;
24		24
Lines 331-336 is( $prepared_letter->{content}, q\|This one only contains the date: \| . output_p Link Here
331		331
332	$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>\|<<aqcontacts.name>>\|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});	332	$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>\|<<aqcontacts.name>>\|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
333		333
		334	# Test that _parseletter doesn't modify its parameters bug 15429
		335	{
		336	my $values = { dateexpiry => '2015-12-13', };
		337	C4::Letters::_parseletter($prepared_letter, 'borrowers', $values);
		338	is( $values->{dateexpiry}, '2015-12-13', "_parseletter doesn't modify its parameters" );
		339	}
		340
334	my $booksellerid = C4::Bookseller::AddBookseller(	341	my $booksellerid = C4::Bookseller::AddBookseller(
335	{	342	{
336	name => "my vendor",	343	name => "my vendor",
337	-