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

Bug 40128: Unit tests 

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 26f17cbf68)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
(cherry picked from commit 6fd4a80c32)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Janusz Kaczmarek 2025-06-14 22:06:55 +00:00 committed by Fridolin Somers
parent ba0f50fb01
commit 21750d46f8
No known key found for this signature in database
GPG Key ID: 9A8E73E2A8B96537
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
t/RecordProcessor.t
View File

@ -205,7 +205,7 @@ subtest 'options() tests' => sub {
subtest "'TrimFields' filter tests" => sub {
plan tests => 2;
plan tests => 4;
# Test default values with a MARC::Record record
my $record = MARC::Record->new();
@ -215,6 +215,8 @@ subtest "'TrimFields' filter tests" => sub {
[ '150', ' ', ' ', a => 'Test' ],
[ '520', ' ', ' ', a => "This is\na test!\t" ],
[ '521', ' ', ' ', a => "This is a\t test!\t" ],
[ '522', ' ', ' ', a => "This is a test!", b => " " ],
[ '523', ' ', ' ', a => " " ],
);
my $p = Koha::RecordProcessor->new( { filters => ['TrimFields'] } );
@ -225,6 +227,12 @@ subtest "'TrimFields' filter tests" => sub {
my $get521a = $record->subfield( '521', 'a' );
is( $get521a, "This is a\t test!", "Trailing tabs are stripped while inner tabs are kept" );
my $get522b = $record->subfield( '522', 'b' );
isnt( $get522b, "", "Subfield containing spaces only removed from the field" );
my $get523 = $record->field('523');
is( $get523, undef, "Field with only a subfield containing spaces removed from the record" );
};
done_testing();