|
Lines 3-12
Link Here
|
| 3 |
# This is to test C4/Koha |
3 |
# This is to test C4/Koha |
| 4 |
# It requires a working Koha database with the sample data |
4 |
# It requires a working Koha database with the sample data |
| 5 |
|
5 |
|
| 6 |
use strict; |
6 |
use Modern::Perl; |
| 7 |
use warnings; |
|
|
| 8 |
use C4::Context; |
7 |
use C4::Context; |
| 9 |
use Koha::DateUtils qw(dt_from_string); |
8 |
use Koha::DateUtils qw(dt_from_string); |
|
|
9 |
use Koha::AuthorisedValue; |
| 10 |
|
10 |
|
| 11 |
use Test::More tests => 10; |
11 |
use Test::More tests => 10; |
| 12 |
use DateTime::Format::MySQL; |
12 |
use DateTime::Format::MySQL; |
|
Lines 33-40
subtest 'Authorized Values Tests' => sub {
Link Here
|
| 33 |
|
33 |
|
| 34 |
|
34 |
|
| 35 |
# Insert an entry into authorised_value table |
35 |
# Insert an entry into authorised_value table |
| 36 |
my $insert_success = AddAuthorisedValue($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl}); |
36 |
my $insert_success = Koha::AuthorisedValue->new( |
| 37 |
ok($insert_success, "Insert data in database"); |
37 |
{ category => $data->{category}, |
|
|
38 |
authorised_value => $data->{authorised_value}, |
| 39 |
lib => $data->{lib}, |
| 40 |
lib_opac => $data->{lib_opac}, |
| 41 |
imageurl => $data->{imageurl} |
| 42 |
} |
| 43 |
)->store; |
| 44 |
ok( $insert_success, "Insert data in database" ); |
| 38 |
|
45 |
|
| 39 |
|
46 |
|
| 40 |
# Tests |
47 |
# Tests |
|
Lines 64-74
subtest 'Authorized Values Tests' => sub {
Link Here
|
| 64 |
SKIP: { |
71 |
SKIP: { |
| 65 |
eval { require Test::Deep; import Test::Deep; }; |
72 |
eval { require Test::Deep; import Test::Deep; }; |
| 66 |
skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@; |
73 |
skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@; |
| 67 |
AddAuthorisedValue('BUG10656', 'ZZZ', 'Z_STAFF', 'A_PUBLIC', ''); |
74 |
Koha::AuthorisedValue->new( |
| 68 |
AddAuthorisedValue('BUG10656', 'AAA', 'A_STAFF', 'Z_PUBLIC', ''); |
75 |
{ category => 'BUG10656', |
|
|
76 |
authorised_value => 'ZZZ', |
| 77 |
lib => 'Z_STAFF', |
| 78 |
lib_opac => 'A_PUBLIC', |
| 79 |
imageurl => '' |
| 80 |
} |
| 81 |
)->store; |
| 82 |
Koha::AuthorisedValue->new( |
| 83 |
{ category => 'BUG10656', |
| 84 |
authorised_value => 'AAA', |
| 85 |
lib => 'A_STAFF', |
| 86 |
lib_opac => 'Z_PUBLIC', |
| 87 |
imageurl => '' |
| 88 |
} |
| 89 |
)->store; |
| 90 |
|
| 69 |
# the next one sets lib_opac to NULL; in that case, the staff |
91 |
# the next one sets lib_opac to NULL; in that case, the staff |
| 70 |
# display value is meant to be used. |
92 |
# display value is meant to be used. |
| 71 |
AddAuthorisedValue('BUG10656', 'DDD', 'D_STAFF', undef, ''); |
93 |
Koha::AuthorisedValue->new( |
|
|
94 |
{ category => 'BUG10656', |
| 95 |
authorised_value => 'DDD', |
| 96 |
lib => 'D_STAFF', |
| 97 |
lib_opac => undef, |
| 98 |
imageurl => '' |
| 99 |
} |
| 100 |
)->store; |
| 101 |
|
| 72 |
my $authvals = GetAuthorisedValues('BUG10656'); |
102 |
my $authvals = GetAuthorisedValues('BUG10656'); |
| 73 |
cmp_deeply( |
103 |
cmp_deeply( |
| 74 |
$authvals, |
104 |
$authvals, |
|
Lines 301-307
subtest 'GetFrameworksLoop() tests' => sub {
Link Here
|
| 301 |
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{ |
331 |
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{ |
| 302 |
plan tests => 7; |
332 |
plan tests => 7; |
| 303 |
|
333 |
|
| 304 |
my $insertGroup = AddAuthorisedValue('ITEMTYPECAT', 'Qwertyware'); |
334 |
my $insertGroup = Koha::AuthorisedValue->new( |
|
|
335 |
{ category => 'ITEMTYPECAT', |
| 336 |
authorised_value => 'Quertyware', |
| 337 |
} |
| 338 |
)->store; |
| 339 |
|
| 305 |
ok($insertGroup, "Create group Qwertyware"); |
340 |
ok($insertGroup, "Create group Qwertyware"); |
| 306 |
|
341 |
|
| 307 |
my $query = "INSERT into itemtypes (itemtype, description, searchcategory, hideinopac) values (?,?,?,?)"; |
342 |
my $query = "INSERT into itemtypes (itemtype, description, searchcategory, hideinopac) values (?,?,?,?)"; |
|
Lines 319-325
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{
Link Here
|
| 319 |
is_deeply(\@results,\@expected,'GetItemTypesByCategory: valid category returns itemtypes'); |
354 |
is_deeply(\@results,\@expected,'GetItemTypesByCategory: valid category returns itemtypes'); |
| 320 |
|
355 |
|
| 321 |
# add more data since GetItemTypesCategorized's search is more subtle |
356 |
# add more data since GetItemTypesCategorized's search is more subtle |
| 322 |
$insertGroup = AddAuthorisedValue('ITEMTYPECAT', 'Veryheavybook'); |
357 |
$insertGroup = Koha::AuthorisedValue->new( |
|
|
358 |
{ category => 'ITEMTYPECAT', |
| 359 |
authorised_value => 'Varyheavybook', |
| 360 |
} |
| 361 |
)->store; |
| 362 |
|
| 323 |
$insertSth->execute('BKghjklo4', 'Another hidden book', 'Veryheavybook', 1); |
363 |
$insertSth->execute('BKghjklo4', 'Another hidden book', 'Veryheavybook', 1); |
| 324 |
|
364 |
|
| 325 |
my $hrCat = GetItemTypesCategorized(); |
365 |
my $hrCat = GetItemTypesCategorized(); |
| 326 |
- |
|
|