Perl: Add support for Debian ELTS.
Stefano Rivera
3 years ago
| 77 | 77 |
$row{$col} = shift(@raw_row) or undef;
|
| 78 | 78 |
}
|
| 79 | 79 |
for my $col ('created', 'release', 'eol', 'eol-esm', 'eol-lts',
|
| 80 | |
'eol-server') {
|
|
80 |
'eol-elts', 'eol-server') {
|
| 81 | 81 |
if(defined($row{$col})) {
|
| 82 | 82 |
$row{$col} = Debian::DistroInfo::convert_date($row{$col});
|
| 83 | 83 |
}
|
|
| 256 | 256 |
for my $row ($self->_avail($date)) {
|
| 257 | 257 |
if (defined($row->{'eol'}) && $date > $row->{'eol'}
|
| 258 | 258 |
&& defined($row->{'eol-lts'}) && $date <= $row->{'eol-lts'}) {
|
|
259 |
push(@distros, $row->{'series'});
|
|
260 |
}
|
|
261 |
}
|
|
262 |
return @distros;
|
|
263 |
}
|
|
264 |
|
|
265 |
sub supported_elts {
|
|
266 |
my ($self, $date) = @_;
|
|
267 |
$date = $self->{'date'} if (!defined($date));
|
|
268 |
my @distros;
|
|
269 |
for my $row ($self->_avail($date)) {
|
|
270 |
if (defined($row->{'eol-lts'}) && $date > $row->{'eol-lts'}
|
|
271 |
&& defined($row->{'eol-elts'}) && $date <= $row->{'eol-elts'}) {
|
| 259 | 272 |
push(@distros, $row->{'series'});
|
| 260 | 273 |
}
|
| 261 | 274 |
}
|
| 15 | 15 |
use strict;
|
| 16 | 16 |
use warnings;
|
| 17 | 17 |
|
| 18 | |
use Test::Simple tests => 34;
|
|
18 |
use Test::Simple tests => 35;
|
| 19 | 19 |
|
| 20 | 20 |
use lib '.';
|
| 21 | 21 |
use Debian::DistroInfo;
|
|
| 56 | 56 |
my @expected = ();
|
| 57 | 57 |
my $date1 = Debian::DistroInfo::convert_date('2011-01-10');
|
| 58 | 58 |
my $date2 = Debian::DistroInfo::convert_date('2016-02-28');
|
|
59 |
my $date3 = Debian::DistroInfo::convert_date('2020-06-29');
|
| 59 | 60 |
|
| 60 | 61 |
my $deb = DebianDistroInfo->new();
|
| 61 | 62 |
@all = ('buzz', 'rex', 'bo', 'hamm', 'slink', 'potato', 'woody', 'sarge',
|
|
| 80 | 81 |
@returned = $deb->supported_lts($date2);
|
| 81 | 82 |
ok(symmetric_difference(\@expected, \@returned) == 0,
|
| 82 | 83 |
'Debian LTS');
|
|
84 |
|
|
85 |
@expected = ('wheezy');
|
|
86 |
@returned = $deb->supported_elts($date3);
|
|
87 |
ok(symmetric_difference(\@expected, \@returned) == 0,
|
|
88 |
'Debian ELTS');
|
| 83 | 89 |
|
| 84 | 90 |
@expected = ('buzz', 'rex', 'bo', 'hamm', 'slink', 'potato', 'woody', 'sarge',
|
| 85 | 91 |
'etch');
|