gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 37582: Add unit test 

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 4d1b0303ff)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Kyle M Hall 2024-10-30 11:53:35 +00:00 committed by Lucas Gass
parent 0845639a8f
commit 5c72e1f96f
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
t/db_dependent/SIP/Message.t
View File

@ -21,7 +21,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Test::More tests => 19;
use Test::More tests => 20;
use Test::Exception;
use Test::MockObject;
use Test::MockModule;
@ -1553,6 +1553,28 @@ sub test_renew_desensitize {
}
subtest 'Test convert_nonprinting_characters' => sub {
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
plan tests => 1;
my $msg =
qq{64YYYY eng20241030 115433000000000000000000000000AOtDJZ8mxoq|AAF6LO825MxxosppnEpaUQ6a|AEnzsktrzn seoGzB|BLY|CQY|BHUSD|BV0|CC807485965|BDlbbGF5qo AawLbgu5W cD3r4q KVHWEkp KMAEKo en6QWEa5 Ho12sDL5hf|PB20241030|PCTQvaTv45|PIN|AFComment 1\nComment 2\nComment 3|BEZ2f_HGLMji|BFbbV3yXQ};
my $server = { account => { convert_nonprinting_characters => ' -- ' } };
my $output;
{
local *STDOUT;
open STDOUT, '>', \$output;
C4::SIP::Sip::write_msg( undef, $msg, $server )
}
like( $output, qr/Comment 1 -- Comment 2 -- Comment 3/, "Response contains converted restriction comment" );
$schema->storage->txn_rollback;
};
# Helper routines
sub create_mocks {