# with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Test::More tests => 551;
+use Test::More tests => 549;
use t::lib::Mocks qw(mock_preference);
use POSIX qw(strftime);
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{library}, 'HASH', '$report->{library} is a HASH' );
-is( scalar( keys( $report->{library} ) ), 5, "There are 5 fields in $report->{library}" );
+is( scalar( keys %{$report->{library}} ), 5, "There are 5 fields in $report->{library}" );
is( $report->{library}->{id}, 0, "UsageStatsID is good" );
is( $report->{library}->{name}, '', "UsageStatsLibraryName is good" );
is( $report->{library}->{url}, '', "UsageStatsLibraryUrl is good" );
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{library}, 'HASH', '$report->{library} is a HASH' );
-is( scalar( keys( $report->{library} ) ), 5, "There are 5 fields in $report->{library}" );
+is( scalar( keys %{$report->{library}} ), 5, "There are 5 fields in $report->{library}" );
is( $report->{library}->{id}, 1, "UsageStatsID is good" );
is( $report->{library}->{name}, 'NAME', "UsageStatsLibraryName is good" );
is( $report->{library}->{url}, 'URL', "UsageStatsLibraryUrl is good" );
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{volumetry}, 'HASH', '$report->{volumetry} is a HASH' );
-is( scalar( keys( $report->{volumetry} ) ), 8, "There are 8 fields in $report->{volumetry}" );
+is( scalar( keys %{$report->{volumetry}} ), 8, "There are 8 fields in $report->{volumetry}" );
is( $report->{volumetry}->{biblio}, 0, "There is no biblio" );
is( $report->{volumetry}->{items}, 0, "There is no items" );
is( $report->{volumetry}->{auth_header}, 0, "There is no auth_header" );
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{volumetry}, 'HASH', '$report->{volumetry} is a HASH' );
-is( scalar( keys( $report->{volumetry} ) ), 8, "There are 8 fields in $report->{volumetry}" );
+is( scalar( keys %{$report->{volumetry}} ), 8, "There are 8 fields in $report->{volumetry}" );
is( $report->{volumetry}->{biblio}, 3, "There are 3 biblio" );
is( $report->{volumetry}->{items}, 3, "There are 3 items" );
is( $report->{volumetry}->{auth_header}, 2, "There are 2 auth_header" );
$report = C4::UsageStats->BuildReport();
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{systempreferences}, 'HASH', '$report->{systempreferences} is a HASH' );
-is( scalar( keys( $report->{systempreferences} ) ), 248, "There are 248 fields in $report->{systempreferences}" );
verif_systempreferences_values( $report, 0 );
#mock with values
$report = C4::UsageStats->BuildReport();
isa_ok( $report, 'HASH', '$report is a HASH' );
isa_ok( $report->{systempreferences}, 'HASH', '$report->{systempreferences} is a HASH' );
-is( scalar( keys( $report->{systempreferences} ) ), 248, "There are 248 fields in $report->{systempreferences}" );
verif_systempreferences_values( $report, 1 );
+#Test if unwanted syspref are not sent
+is( $report->{systempreferences}->{useDischarge}, undef, 'useDischarge should not be shared');
+is( $report->{systempreferences}->{OpacUserJS}, undef, 'OpacUserJS should not be shared');
+
# ---------- Testing ReportToCommunity ----------
# ---------- Testing _count ---------------------
my $issue_id1 = $dbh->last_insert_id( undef, undef, 'old_issues', undef );
# ---------- Add 1 old_reserves
- AddReserve( $branchcode, $borrowernumber1, $biblionumber1, 'a', '', 1, undef, undef, '', 'Title', undef, undef );
+ AddReserve( $branchcode, $borrowernumber1, $biblionumber1, '', 1, undef, undef, '', 'Title', undef, undef );
my $reserves1 = GetReservesFromBiblionumber( { biblionumber => $biblionumber1 } );
my $reserve_id1 = $reserves1->[0]->{reserve_id};
my $reserve1 = CancelReserve( { reserve_id => $reserve_id1 } );
OrderPdfFormat
casAuthentication
casLogout
- AllowPkiAuth
+ AllowPKIAuth
DebugLevel
delimiter
noItemTypeImages
ILS-DI
OAI-PMH
version
+ AudioAlerts
/
) {
t::lib::Mocks::mock_preference( $_, $set_value );
sub verif_systempreferences_values {
my ( $report, $value_to_test ) = @_;
- foreach my $key ( keys $report->{systempreferences} ) {
+ foreach my $key ( keys %{$report->{systempreferences}} ) {
is( $report->{systempreferences}->{$key}, $value_to_test, "\$report->{systempreferences}->{$key} = $value_to_test" );
}
}