The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

SKIM / MARC-Convert-Wikidata-0.24 / t / MARC-Convert-Wikidata-Utils / 06-clean_issn.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
use strict;
use warnings;
use MARC::Convert::Wikidata::Utils qw(clean_issn);
use Test::More 'tests' => 2;
use Test::NoWarnings;
# Test.
my $input_issn = '0585-5675 ;';
my $ret = clean_issn($input_issn);
is($ret, '0585-5675', "ISSN '$input_issn' after cleanup.");