Attachment #171612 for bug #37898

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

Lines 20-31 Link Here

(-)a/t/db_dependent/Labels/t_Layout.t (+6 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 58;	22	use Test::More tests => 58;
		23
23	use C4::Context;	24	use C4::Context;
		25	use Koha::Database;
24		26
25	BEGIN {	27	BEGIN {
26	use_ok('C4::Labels::Layout');	28	use_ok('C4::Labels::Layout');
27	}	29	}
28		30
		31	my $schema = Koha::Database->new->schema;
		32	$schema->storage->txn_begin;
		33
29	my $default_layout = {	34	my $default_layout = {
30	barcode_type => 'CODE39',	35	barcode_type => 'CODE39',
31	callnum_split => 0,	36	callnum_split => 0,
Lines 118-120 is($updated_layout->get_text_wrap_cols(label_width => 180, left_text_margin => 1 Link Here
118	my $del_results = $updated_layout->delete();	123	my $del_results = $updated_layout->delete();
119	ok( ! defined($del_results) , "Layout->delete() success");	124	ok( ! defined($del_results) , "Layout->delete() success");
120		125
		126	$schema->storage->txn_rollback;

Lines 20-31 Link Here

(-)a/t/db_dependent/Labels/t_Profile.t (+6 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 27;	22	use Test::More tests => 27;
		23
23	use C4::Context;	24	use C4::Context;
		25	use Koha::Database;
24		26
25	BEGIN {	27	BEGIN {
26	use_ok('C4::Labels::Profile');	28	use_ok('C4::Labels::Profile');
27	}	29	}
28		30
		31	my $schema = Koha::Database->new->schema;
		32	$schema->storage->txn_begin;
		33
29	my $expected_profile = {	34	my $expected_profile = {
30	creator => 'Labels',	35	creator => 'Labels',
31	printer_name => 'Circulation Desk',	36	printer_name => 'Circulation Desk',
Lines 95-97 is_deeply($updated_profile, $saved_profile, "Updated layout object verify succes Link Here
95	my $del_results = $updated_profile->delete();	100	my $del_results = $updated_profile->delete();
96	ok($del_results ne -1, "Profile->delete() success");	101	ok($del_results ne -1, "Profile->delete() success");
97		102
		103	$schema->storage->txn_rollback;

Lines 20-31 Link Here

(-)a/t/db_dependent/Labels/t_Template.t (-1 / +6 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 54;	22	use Test::More tests => 54;
		23
23	use C4::Context;	24	use C4::Context;
		25	use Koha::Database;
24		26
25	BEGIN {	27	BEGIN {
26	use_ok('C4::Labels::Template');	28	use_ok('C4::Labels::Template');
27	}	29	}
28		30
		31	my $schema = Koha::Database->new->schema;
		32	$schema->storage->txn_begin;
		33
29	my $expect_template = {	34	my $expect_template = {
30	creator => 'Labels',	35	creator => 'Labels',
31	profile_id => 0,	36	profile_id => 0,
Lines 135-137 foreach my $key (keys %{$expect_conv}) { Link Here
135	my $del_results = $updated_template->delete();	140	my $del_results = $updated_template->delete();
136	ok($del_results ne -1, "Template->delete() success");	141	ok($del_results ne -1, "Template->delete() success");
137		142
138	-	143	$schema->storage->txn_rollback;

Return to bug 37898