Lines 18-35
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 4; |
20 |
use Test::More tests => 4; |
|
|
21 |
use t::lib::TestBuilder; |
21 |
|
22 |
|
|
|
23 |
use Koha::Patron::Categories; |
24 |
use Koha::Issues; |
25 |
use Koha::Patrons; |
22 |
use Koha::Database; |
26 |
use Koha::Database; |
23 |
use Koha::Template::Plugin::Categories; |
27 |
use Koha::Template::Plugin::Categories; |
24 |
use t::lib::TestBuilder; |
|
|
25 |
|
28 |
|
26 |
my $schema = Koha::Database->new->schema; |
29 |
my $schema = Koha::Database->new->schema; |
27 |
$schema->storage->txn_begin; |
30 |
$schema->storage->txn_begin; |
28 |
|
31 |
|
29 |
# Delete all categories |
32 |
# Delete all categories |
30 |
$schema->resultset('Issue')->search->delete; |
33 |
Koha::Issues->search->delete; |
31 |
$schema->resultset('Borrower')->search->delete; |
34 |
Koha::Patrons->search->delete; |
32 |
$schema->resultset('Category')->search->delete; |
35 |
Koha::Patron::Categories->search->delete; |
33 |
|
36 |
|
34 |
my $builder = t::lib::TestBuilder->new; |
37 |
my $builder = t::lib::TestBuilder->new; |
35 |
|
38 |
|
36 |
- |
|
|