[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[lintian] 01/01: data/standards-version/ancient-date: Change the policy of "ancient-standards-version" to "a release of Policy from the previous stable release cycle" and update the value to match. (Closes: #886219)



This is an automated email from the git hooks/post-receive script.

lamby pushed a commit to branch master
in repository lintian.

commit 3c83a65d8f4a055eced5c254dac048a61bbdc2bc
Author: Chris Lamb <lamby@debian.org>
Date:   Thu Jan 4 10:30:45 2018 +0000

    data/standards-version/ancient-date: Change the policy of "ancient-standards-version" to "a release of Policy from the previous stable release cycle" and update the value to match. (Closes: #886219)
---
 data/standards-version/ancient-date |  8 ++--
 debian/changelog                    |  4 ++
 t/scripts/ancient-sv-date.t         | 77 -------------------------------------
 3 files changed, 9 insertions(+), 80 deletions(-)

diff --git a/data/standards-version/ancient-date b/data/standards-version/ancient-date
index 1f1a34a..4ba1100 100644
--- a/data/standards-version/ancient-date
+++ b/data/standards-version/ancient-date
@@ -1,5 +1,7 @@
 # Any Standards Version released before this day is "ancient"
-# That date has to be within 22 and 26 months in the past
-# at release time
+#
+# Since #886219 this is defined as "a release of Policy from the previous
+# stable release cycle."
+#
 # Format is ANCIENT < Date
-ANCIENT < 27 January 2016
+ANCIENT < 25 April 2015
diff --git a/debian/changelog b/debian/changelog
index d985306..4a31c54 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -43,6 +43,10 @@ lintian (2.5.68) UNRELEASED; urgency=medium
   * data/files/fnames:
     + [CL] Warn about packages that ship (non-reproducible) Python
       Hypothesis examples.  (Closes: #886101)
+  * data/standards-version/ancient-date:
+    + [CL] Change the policy of "ancient-standards-version" to "a release
+      of Policy from the previous stable release cycle" and update the
+      value to match.  (Closes: #886219)
 
   * reporting/templates/maintainer.tmpl:
     + [CL] Make the previously-hidden package anchor links visible so that
diff --git a/t/scripts/ancient-sv-date.t b/t/scripts/ancient-sv-date.t
deleted file mode 100755
index 8cfecda..0000000
--- a/t/scripts/ancient-sv-date.t
+++ /dev/null
@@ -1,77 +0,0 @@
-#!/usr/bin/perl
-#
-# Test for keeping "ancient standards version" date
-# recent.
-#
-
-use strict;
-use warnings;
-use autodie;
-
-use Test::More;
-
-# How much out of date the check may be; measured in seconds
-# 2 months
-use constant ERROR_MARGIN => 3600 * 24 * 31 * 2;
-# How long before a SV is considered "Ancient" in seconds.
-# 2 years.
-use constant ANCIENT_AGE  => 3600 * 24 * 365 * 2;
-use Date::Parse qw(str2time);
-
-# STOP! Before you even consider to make this run always
-# remember that this test will fail (causing FTBFS) every
-# "ERROR_MARGIN" seconds!
-#   This check is here to remind us to update ANCIENT_DATE
-# in checks/standards-version every now and then during
-# development cycles!
-plan skip_all => 'Only checked for UNRELEASED versions'
-  if should_skip();
-
-plan tests => 2;
-
-$ENV{'LINTIAN_TEST_ROOT'} //= '.';
-
-my $check = "$ENV{'LINTIAN_TEST_ROOT'}/data/standards-version/ancient-date";
-my $found = 0;
-open(my $fd, '<', $check);
-while (my $line = <$fd>) {
-    # We are looking for:
-    #   my $ANCIENT_DATE < '20 Aug 2009')
-    $line =~ s,\#.*+,,o;
-    if (
-        $line =~ m/ANCIENT \s* < \s*
-                  ([\s\w]+)/ox
-      ) {
-        my $date = $1;
-        my $and = str2time($date)
-          or die "Cannot parse date ($date, line $.): $!";
-        my $time = time - ANCIENT_AGE;
-        $found = 1;
-        cmp_ok($time, '<', $and + ERROR_MARGIN, 'ANCIENT_DATE is up to date')
-          or diag(' * Please update data/standards-version/ancient-date');
-        cmp_ok(
-            $time, '>',
-            $and - ERROR_MARGIN,
-            'ANCIENT_DATE is not too far ahead'
-        );
-        last;
-    }
-}
-close($fd);
-
-die "Cannot find ANCIENT_DATE.\n" unless $found;
-
-sub should_skip {
-    my $skip = 1;
-
-    open(my $fd, '-|', 'dpkg-parsechangelog', '-c0');
-
-    while (<$fd>) {
-        $skip = 0 if m/^Distribution: UNRELEASED$/;
-    }
-
-    close($fd);
-
-    return $skip;
-}
-

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git


Reply to: