|
Lines 20-31
Link Here
|
| 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; |