Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 26; |
22 |
use Test::More tests => 24; |
23 |
use Data::Dumper; |
23 |
use Data::Dumper; |
24 |
use Koha::Database; |
24 |
use Koha::Database; |
25 |
use t::lib::Mocks; |
25 |
use t::lib::Mocks; |
Lines 135-150
my $item_type = $builder->build_object({ class => 'Koha::ItemTypes' });
Link Here
|
135 |
is( $item_type->can_be_deleted, 1, 'An item type that is not used can be deleted'); |
135 |
is( $item_type->can_be_deleted, 1, 'An item type that is not used can be deleted'); |
136 |
|
136 |
|
137 |
my $item = $builder->build_object({ class => 'Koha::Items', value => { itype => $item_type->itemtype }}); |
137 |
my $item = $builder->build_object({ class => 'Koha::Items', value => { itype => $item_type->itemtype }}); |
138 |
|
|
|
139 |
is( $item_type->can_be_deleted, 0, 'An item type that is used by an item cannot be deleted' ); |
138 |
is( $item_type->can_be_deleted, 0, 'An item type that is used by an item cannot be deleted' ); |
|
|
139 |
$item->delete; |
140 |
|
140 |
|
141 |
my $biblio = $builder->build_object({ class => 'Koha::Biblioitems', value => { itemtype => $item_type->itemtype }}); |
141 |
my $biblioitem = $builder->build_object({ class => 'Koha::Biblioitems', value => { itemtype => $item_type->itemtype }}); |
142 |
|
|
|
143 |
is ( $item_type->can_be_deleted, 0, 'An item type that is used by an item and a biblioitem cannot be deleted' ); |
142 |
is ( $item_type->can_be_deleted, 0, 'An item type that is used by an item and a biblioitem cannot be deleted' ); |
144 |
|
143 |
$biblioitem->delete; |
145 |
is ( $item->delete, 1, 'An item has been deleted' ); |
|
|
146 |
|
147 |
is ( $biblio->delete, 1, 'A biblioitem has been deleted' ); |
148 |
|
144 |
|
149 |
is ( $item_type->can_be_deleted, 1, 'The item type that was being used by the removed item and biblioitem can now be deleted' ); |
145 |
is ( $item_type->can_be_deleted, 1, 'The item type that was being used by the removed item and biblioitem can now be deleted' ); |
150 |
|
146 |
|
151 |
- |
|
|