113 lines
4.0 KiB
Perl
Executable File
113 lines
4.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Copyright 2022 Koha Development team
|
|
#
|
|
# This file is part of Koha
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <https://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use utf8;
|
|
|
|
use Test::More tests => 2;
|
|
use Test::Exception;
|
|
use Test::NoWarnings;
|
|
|
|
use Koha::Auth::Identity::Providers;
|
|
|
|
use t::lib::TestBuilder;
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
my $builder = t::lib::TestBuilder->new;
|
|
|
|
subtest 'decode_json_field() and set_encoded_json_field() tests' => sub {
|
|
|
|
plan tests => 16;
|
|
|
|
$schema->storage->txn_begin;
|
|
|
|
my $idp = $builder->build_object( { class => 'Koha::Auth::Identity::Providers' } );
|
|
|
|
my $data = { some => 'data' };
|
|
|
|
$idp->set_encoded_json_field( { data => $data, field => 'config' } );
|
|
|
|
is_deeply( $idp->_json->decode( $idp->config ), $data, 'decode what we sent' );
|
|
is_deeply( $idp->decode_json_field( { field => 'config' } ), $data, 'check with decode_json_field' );
|
|
|
|
# Let's get some Unicode stuff into the game
|
|
$data = { favorite_Chinese => [ '葑', '癱' ], latin_dancing => [ '¢', '¥', 'á', 'û' ] };
|
|
$idp->set_encoded_json_field( { data => $data, field => 'config' } )->store;
|
|
|
|
$idp->discard_changes; # refresh
|
|
is_deeply( $idp->decode_json_field( { field => 'config' } ), $data, 'Deep compare with Unicode data' );
|
|
|
|
# To convince you even more
|
|
is(
|
|
ord( $idp->decode_json_field( { field => 'config' } )->{favorite_Chinese}->[0] ), 33873,
|
|
'We still found Unicode \x8451'
|
|
);
|
|
is(
|
|
ord( $idp->decode_json_field( { field => 'config' } )->{latin_dancing}->[0] ), 162,
|
|
'We still found the equivalent of Unicode \x00A2'
|
|
);
|
|
|
|
# Testing with sending encoded data (which we normally shouldn't do)
|
|
my $utf8_data;
|
|
foreach my $k ( 'favorite_Chinese', 'latin_dancing' ) {
|
|
foreach my $c ( @{ $data->{$k} } ) {
|
|
push @{ $utf8_data->{$k} }, Encode::encode( 'UTF-8', $c );
|
|
}
|
|
}
|
|
$idp->set_encoded_json_field( { data => $utf8_data, field => 'config' } )->store;
|
|
$idp->discard_changes; # refresh
|
|
is_deeply( $idp->decode_json_field( { field => 'config' } ), $utf8_data, 'Deep compare with utf8_data' );
|
|
|
|
# Need more evidence?
|
|
is(
|
|
ord( $idp->decode_json_field( { field => 'config' } )->{favorite_Chinese}->[0] ), 232,
|
|
'We still found a UTF8 encoded byte'
|
|
); # ord does not need substr here
|
|
|
|
# pathological use cases
|
|
|
|
throws_ok { $idp->set_encoded_json_field( { data => $data } ); }
|
|
'Koha::Exceptions::MissingParameter',
|
|
'Exception thrown on missing parameter';
|
|
is( $@->parameter, 'field', 'Correct parameter reported (field)' );
|
|
|
|
throws_ok { $idp->set_encoded_json_field( { data => $data, field => undef } ); }
|
|
'Koha::Exceptions::MissingParameter',
|
|
'Exception thrown on missing parameter';
|
|
is( $@->parameter, 'field', 'Correct parameter reported (field)' );
|
|
|
|
throws_ok { $idp->set_encoded_json_field( { field => 'something' } ); }
|
|
'Koha::Exceptions::MissingParameter',
|
|
'Exception thrown on missing parameter';
|
|
is( $@->parameter, 'data', 'Correct parameter reported (data)' );
|
|
|
|
$idp->set_encoded_json_field( { data => undef, field => 'config' } );
|
|
is( $idp->config, undef, 'undef is undef' );
|
|
|
|
# set invalid data
|
|
$idp->config('{');
|
|
throws_ok { $idp->decode_json_field( { field => 'config' } ) }
|
|
'Koha::Exceptions::Object::BadValue',
|
|
'Exception thrown';
|
|
like( "$@", qr/Error reading JSON data/ );
|
|
|
|
$schema->storage->txn_rollback;
|
|
};
|