|
Lines 7-13
use strict;
Link Here
|
| 7 |
use warnings; |
7 |
use warnings; |
| 8 |
use C4::Context; |
8 |
use C4::Context; |
| 9 |
use Koha::DateUtils qw(dt_from_string); |
9 |
use Koha::DateUtils qw(dt_from_string); |
| 10 |
use Data::Dumper; |
|
|
| 11 |
|
10 |
|
| 12 |
use Test::More tests => 9; |
11 |
use Test::More tests => 9; |
| 13 |
use DateTime::Format::MySQL; |
12 |
use DateTime::Format::MySQL; |
|
Lines 316-322
subtest 'GetFrameworksLoop() tests' => sub {
Link Here
|
| 316 |
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{ |
315 |
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{ |
| 317 |
plan tests => 7; |
316 |
plan tests => 7; |
| 318 |
|
317 |
|
| 319 |
my $insertGroup = AddAuthorisedValue('DOCTYPECAT', 'Qwertyware'); |
318 |
my $insertGroup = AddAuthorisedValue('ITEMTYPECAT', 'Qwertyware'); |
| 320 |
ok($insertGroup, "Create group Qwertyware"); |
319 |
ok($insertGroup, "Create group Qwertyware"); |
| 321 |
|
320 |
|
| 322 |
my $query = "INSERT into itemtypes (itemtype, description, searchcategory, hideinopac) values (?,?,?,?)"; |
321 |
my $query = "INSERT into itemtypes (itemtype, description, searchcategory, hideinopac) values (?,?,?,?)"; |
|
Lines 334-340
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{
Link Here
|
| 334 |
is_deeply(\@results,\@expected,'GetItemTypesByCategory: valid category returns itemtypes'); |
333 |
is_deeply(\@results,\@expected,'GetItemTypesByCategory: valid category returns itemtypes'); |
| 335 |
|
334 |
|
| 336 |
# add more data since GetItemTypesCategorized's search is more subtle |
335 |
# add more data since GetItemTypesCategorized's search is more subtle |
| 337 |
$insertGroup = AddAuthorisedValue('DOCTYPECAT', 'Veryheavybook'); |
336 |
$insertGroup = AddAuthorisedValue('ITEMTYPECAT', 'Veryheavybook'); |
| 338 |
$insertSth->execute('BKghjklo4', 'Another hidden book', 'Veryheavybook', 1); |
337 |
$insertSth->execute('BKghjklo4', 'Another hidden book', 'Veryheavybook', 1); |
| 339 |
|
338 |
|
| 340 |
my $hrCat = GetItemTypesCategorized(); |
339 |
my $hrCat = GetItemTypesCategorized(); |
| 341 |
- |
|
|