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>
This commit is contained in:
Janusz Kaczmarek 2025-06-14 22:06:55 +00:00 committed by Lucas Gass
parent d0ce815600
commit 26f17cbf68
No known key found for this signature in database
GPG Key ID: 60B447398B0D36CA
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

@ -215,7 +215,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();
@ -225,6 +225,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'] } );
@ -235,4 +237,10 @@ 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" );
};