|
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 |
- |
|
|