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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#!/usr/bin/perl
#
# Tests for App::DocKnot::Spin::Versions (.versions file handling).
#
# Copyright 2021 Russ Allbery <rra@cpan.org>
#
# SPDX-License-Identifier: MIT
use 5.024;
use autodie;
use warnings;
use lib 't/lib';
use File::Spec;
use POSIX qw(tzset);
use Test::More tests => 20;
require_ok('App::DocKnot::Spin::Versions');
# All dates in the sample data are in America/Los_Angeles. Specify this in
# the POSIX format in the hope this will also work on systems without tzinfo
# installed.
local $ENV{TZ} = 'PST8PDT,M3.2.0,M11.1.0';
tzset();
# Parse the file.
my $path = File::Spec->catfile('t', 'data', 'spin', 'input', '.versions');
my $versions = App::DocKnot::Spin::Versions->new($path);
isa_ok($versions, 'App::DocKnot::Spin::Versions');
# Check the resulting information.
is($versions->version('docknot'), '4.01', 'docknot version');
is($versions->release_date('docknot'), '2021-02-27', 'docknot release date');
is(
$versions->latest_release('software/docknot/index.th'), 1614460092,
'latest release for software/docknot/index.th',
);
# Unknown products or files.
is($versions->version('unknown'), undef, 'unknown version');
is($versions->release_date('unknown'), undef, 'unknown release date');
is($versions->latest_release('index.th'), 0, 'unknown file index.th');
# Check continuation handling and a line without dependencies.
my $inputdir = File::Spec->catfile('t', 'data', 'spin', 'versions');
$path = File::Spec->catfile($inputdir, 'continuation');
$versions = App::DocKnot::Spin::Versions->new($path);
is($versions->version('docknot'), '4.01', 'docknot version');
is($versions->release_date('docknot'), '2021-02-27', 'docknot release date');
is($versions->version('other-package'), '1.00', 'other-package version');
is(
$versions->release_date('other-package'), '2021-09-07',
'other-package release date',
);
is($versions->version('third-package'), '2.00', 'third-package version');
is(
$versions->release_date('third-package'), '2021-09-06',
'third-package release date',
);
is(
$versions->latest_release('software/index.th'), 1614460092,
'latest release for software/index.th',
);
# Check that third-package overrides the timestamp for
# software/docknot/index.th.
is(
$versions->latest_release('software/docknot/index.th'), 1630897980,
'latest release for software/docknot/index.th',
);
# Check error handling.
eval {
$path = File::Spec->catfile($inputdir, 'invalid-continuation');
App::DocKnot::Spin::Versions->new($path);
};
is(
$@, "continuation without previous entry in $path\n",
'invalid continuation',
);
eval {
$path = File::Spec->catfile($inputdir, 'invalid-date');
App::DocKnot::Spin::Versions->new($path);
};
is($@, qq(invalid date "20-02-27" in $path\n), 'invalid date');
eval {
$path = File::Spec->catfile($inputdir, 'invalid-time');
App::DocKnot::Spin::Versions->new($path);
};
is($@, qq(invalid time "13:08" in $path\n), 'invalid time');
eval {
$path = File::Spec->catfile($inputdir, 'invalid-line');
App::DocKnot::Spin::Versions->new($path);
};
is($@, "invalid line 2 in $path\n", 'invalid line');
|
