Lines 15-23
Link Here
|
15 |
# with Koha; if not, see <http://www.gnu.org/licenses>. |
15 |
# with Koha; if not, see <http://www.gnu.org/licenses>. |
16 |
|
16 |
|
17 |
use Modern::Perl; |
17 |
use Modern::Perl; |
18 |
use Test::More tests => 545; |
18 |
use Test::More tests => 57; |
19 |
use t::lib::Mocks qw(mock_preference); |
19 |
use t::lib::Mocks qw(mock_preference); |
20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
|
|
21 |
use Data::Dumper; |
21 |
|
22 |
|
22 |
BEGIN { |
23 |
BEGIN { |
23 |
use_ok('C4::UsageStats'); |
24 |
use_ok('C4::UsageStats'); |
Lines 372-377
sub mocking_systempreferences_to_a_set_value {
Link Here
|
372 |
AllFinesNeedOverride |
373 |
AllFinesNeedOverride |
373 |
AllowFineOverride |
374 |
AllowFineOverride |
374 |
AllowItemsOnHoldCheckout |
375 |
AllowItemsOnHoldCheckout |
|
|
376 |
AllowItemsOnHoldCheckoutSCO |
375 |
AllowNotForLoanOverride |
377 |
AllowNotForLoanOverride |
376 |
AllowRenewalLimitOverride |
378 |
AllowRenewalLimitOverride |
377 |
AllowReturnToBranch |
379 |
AllowReturnToBranch |
Lines 586-593
sub mocking_systempreferences_to_a_set_value {
Link Here
|
586 |
sub verif_systempreferences_values { |
588 |
sub verif_systempreferences_values { |
587 |
my ( $report, $value_to_test ) = @_; |
589 |
my ( $report, $value_to_test ) = @_; |
588 |
|
590 |
|
|
|
591 |
my @missings; |
589 |
foreach my $key ( keys %{$report->{systempreferences}} ) { |
592 |
foreach my $key ( keys %{$report->{systempreferences}} ) { |
590 |
is( $report->{systempreferences}->{$key}, $value_to_test, "\$report->{systempreferences}->{$key} = $value_to_test" ); |
593 |
if ( $report->{systempreferences}->{$key} ne $value_to_test ) { |
|
|
594 |
warn $key; |
595 |
push @missings, $key; |
596 |
} |
597 |
} |
598 |
unless ( @missings ) { |
599 |
ok(1, 'All prefs are present'); |
600 |
} else { |
601 |
ok(0, 'Some prefs are missing: ' . Dumper(\@missings)); |
591 |
} |
602 |
} |
592 |
} |
603 |
} |
593 |
|
604 |
|
594 |
- |
|
|