Lines 398-421
subtest "to_api() tests" => sub {
Link Here
|
398 |
|
398 |
|
399 |
subtest 'unprivileged request tests' => sub { |
399 |
subtest 'unprivileged request tests' => sub { |
400 |
|
400 |
|
401 |
my @privileged_attrs = @{ Koha::Library->api_privileged_attrs }; |
401 |
my @all_attrs = Koha::Libraries->columns(); |
|
|
402 |
my $public_attrs = { map { $_ => 1 } @{ Koha::Library->public_read_list() } }; |
403 |
my $mapping = Koha::Library->to_api_mapping; |
402 |
|
404 |
|
403 |
# Create sample libraries |
405 |
# Create sample libraries |
404 |
my $library_1 = $builder->build_object({ class => 'Koha::Libraries' }); |
406 |
my $library_1 = $builder->build_object({ class => 'Koha::Libraries' }); |
405 |
my $library_2 = $builder->build_object({ class => 'Koha::Libraries' }); |
407 |
my $library_2 = $builder->build_object({ class => 'Koha::Libraries' }); |
406 |
my $library_3 = $builder->build_object({ class => 'Koha::Libraries' }); |
|
|
407 |
my $libraries = Koha::Libraries->search( |
408 |
my $libraries = Koha::Libraries->search( |
408 |
{ |
409 |
{ |
409 |
branchcode => { |
410 |
branchcode => { |
410 |
'-in' => [ |
411 |
'-in' => [ |
411 |
$library_1->branchcode, $library_2->branchcode, |
412 |
$library_1->branchcode, $library_2->branchcode |
412 |
$library_3->branchcode |
|
|
413 |
] |
413 |
] |
414 |
} |
414 |
} |
415 |
} |
415 |
} |
416 |
); |
416 |
); |
417 |
|
417 |
|
418 |
plan tests => scalar @privileged_attrs * 2 * $libraries->count; |
418 |
plan tests => scalar @all_attrs * 2 * $libraries->count; |
419 |
|
419 |
|
420 |
my $libraries_unprivileged_representation = $libraries->to_api({ public => 1 }); |
420 |
my $libraries_unprivileged_representation = $libraries->to_api({ public => 1 }); |
421 |
my $libraries_privileged_representation = $libraries->to_api(); |
421 |
my $libraries_privileged_representation = $libraries->to_api(); |
Lines 423-433
subtest "to_api() tests" => sub {
Link Here
|
423 |
for (my $i = 0; $i < $libraries->count; $i++) { |
423 |
for (my $i = 0; $i < $libraries->count; $i++) { |
424 |
my $privileged_representation = $libraries_privileged_representation->[$i]; |
424 |
my $privileged_representation = $libraries_privileged_representation->[$i]; |
425 |
my $unprivileged_representation = $libraries_unprivileged_representation->[$i]; |
425 |
my $unprivileged_representation = $libraries_unprivileged_representation->[$i]; |
426 |
foreach my $privileged_attr ( @privileged_attrs ) { |
426 |
foreach my $attr (@all_attrs) { |
427 |
ok( exists $privileged_representation->{$privileged_attr}, |
427 |
my $mapped = exists $mapping->{$attr} ? $mapping->{$attr} : $attr; |
428 |
"Attribute $privileged_attr' is present" ); |
428 |
if ( defined($mapped) ) { |
429 |
ok( !exists $unprivileged_representation->{$privileged_attr}, |
429 |
ok( |
430 |
"Attribute '$privileged_attr' is not present" ); |
430 |
exists $privileged_representation->{$mapped}, |
|
|
431 |
"Attribute '$attr' is present when privileged" |
432 |
); |
433 |
if ( exists $public_attrs->{$attr} ) { |
434 |
ok( |
435 |
exists $unprivileged_representation->{$mapped}, |
436 |
"Attribute '$attr' is present when public" |
437 |
); |
438 |
} |
439 |
else { |
440 |
ok( |
441 |
!exists $unprivileged_representation->{$mapped}, |
442 |
"Attribute '$attr' is not present when public" |
443 |
); |
444 |
} |
445 |
} |
446 |
else { |
447 |
ok( |
448 |
!exists $privileged_representation->{$attr}, |
449 |
"Unmapped attribute '$attr' is not present when privileged" |
450 |
); |
451 |
ok( |
452 |
!exists $unprivileged_representation->{$attr}, |
453 |
"Unmapped attribute '$attr' is not present when public" |
454 |
); |
455 |
} |
431 |
} |
456 |
} |
432 |
} |
457 |
} |
433 |
}; |
458 |
}; |
434 |
- |
|
|