View | Details | Raw Unified | Return to bug 14097
Collapse All | Expand All

(-)a/t/db_dependent/UsageStats.t (-2 / +5 lines)
Lines 15-21 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 => 551;
18
use Test::More tests => 549;
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
21
Lines 162-167 isa_ok( $report->{systempreferences}, 'HASH', '$report->{systempreferences} is a Link Here
162
is( scalar( keys %{$report->{systempreferences}} ), 248, "There are 248 fields in $report->{systempreferences}" );
162
is( scalar( keys %{$report->{systempreferences}} ), 248, "There are 248 fields in $report->{systempreferences}" );
163
verif_systempreferences_values( $report, 1 );
163
verif_systempreferences_values( $report, 1 );
164
164
165
#Test if unwanted syspref are not sent
166
is( $report->{systempreferences}->{useDischarge}, undef, 'useDischarge should not be shared');
167
is( $report->{systempreferences}->{OpacUserJS},   undef, 'OpacUserJS   should not be shared');
168
165
# ---------- Testing ReportToCommunity ----------
169
# ---------- Testing ReportToCommunity ----------
166
170
167
# ---------- Testing _count ---------------------
171
# ---------- Testing _count ---------------------
168
- 

Return to bug 14097