From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SKIM / MARC-Convert-Wikidata-0.28 / t / MARC-Convert-Wikidata-Utils / 09-clean_publication_date.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

              
use strict;
use warnings;
use MARC::Convert::Wikidata::Utils qw(clean_publication_date);
use Test::More 'tests' => 17;
use Test::NoWarnings;
# Test.
my $input_publication_date = '2010';
my ($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, 2010, "Publication date '$input_publication_date' after cleanup.");
is($ret_option, undef, "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = 'foo';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, undef, "Publication date '$input_publication_date' after cleanup.");
is($ret_option, undef, "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = 'c2020';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, 2020, "Publication date '$input_publication_date' after cleanup.");
is($ret_option, 'circa', "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = '2020?';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, 2020, "Publication date '$input_publication_date' after cleanup.");
is($ret_option, 'circa', "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = '[2020?]';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, 2020, "Publication date '$input_publication_date' after cleanup.");
is($ret_option, 'circa', "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = '1950-1960';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, '1950-1960', "Publication date '$input_publication_date' after cleanup.");
is($ret_option, undef, "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = '1950-';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, '1950-', "Publication date '$input_publication_date' after cleanup.");
is($ret_option, undef, "Publication date '$input_publication_date' option.");
# Test.
$input_publication_date = '1994-[2002]';
($ret, $ret_option) = clean_publication_date($input_publication_date);
is($ret, '1994-2002', "Publication date '$input_publication_date' after cleanup.");
is($ret_option, undef, "Publication date '$input_publication_date' option.");