|
Lines 21-27
use Modern::Perl;
Link Here
|
| 21 |
use C4::Context; |
21 |
use C4::Context; |
| 22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 23 |
|
23 |
|
| 24 |
use Test::More tests => 36; |
24 |
use Test::More tests => 34; |
| 25 |
|
25 |
|
| 26 |
use C4::Branch; |
26 |
use C4::Branch; |
| 27 |
use Koha::Libraries; |
27 |
use Koha::Libraries; |
|
Lines 48-54
can_ok(
Link Here
|
| 48 |
GetBranchCategories |
48 |
GetBranchCategories |
| 49 |
GetBranchesInCategory |
49 |
GetBranchesInCategory |
| 50 |
ModBranchCategoryInfo |
50 |
ModBranchCategoryInfo |
| 51 |
CheckCategoryUnique |
|
|
| 52 |
mybranch |
51 |
mybranch |
| 53 |
GetBranchesCount) |
52 |
GetBranchesCount) |
| 54 |
); |
53 |
); |
|
Lines 334-343
is(
Link Here
|
| 334 |
'BRC has been added to CAT1' |
333 |
'BRC has been added to CAT1' |
| 335 |
); |
334 |
); |
| 336 |
|
335 |
|
| 337 |
#Test CheckCategoryUnique |
|
|
| 338 |
is( CheckCategoryUnique('CAT2'), 0, 'CAT2 exists' ); |
| 339 |
is( CheckCategoryUnique('CAT_NO_EXISTS'), 1, 'CAT_NO_EXISTS doesnt exist' ); |
| 340 |
|
| 341 |
#Test GetCategoryTypes |
336 |
#Test GetCategoryTypes |
| 342 |
my @category_types = GetCategoryTypes(); |
337 |
my @category_types = GetCategoryTypes(); |
| 343 |
is_deeply(\@category_types, [ 'searchdomain', 'properties' ], 'received expected library category types'); |
338 |
is_deeply(\@category_types, [ 'searchdomain', 'properties' ], 'received expected library category types'); |
| 344 |
- |
|
|