|
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 |
- |
|
|