debian/t/released-versions.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

#!/usr/bin/perl -w
use strict;
use Test::More tests => 6;

# Test that the current upstream version is listed in debian/released-versions
# for uploads targetting unstable.
#
# Forgetting this will only cause problems if/when the next minor release is
# uploaded, at which point it will be missing perlapi-5.xx.x for this version.
# Running this check from autopkgtest should therefore pinpoint such issues
# well in advance.

my $upstream_version;
my $distribution;
ok(open(P, "dpkg-parsechangelog |"), "successfully piping from dpkg-parsechangelog");
while (<P>) {
    chomp;
    /^Version: (.+)-[^-]+$/ and $upstream_version = $1;
    /^Distribution: (.+)+$/ and $distribution = $1;
}
ok(close P, "dpkg-parsechangelog exited normally");
ok(defined $upstream_version, "found upstream version from dpkg-parsechangelog output");
ok(defined $distribution, "found distribution information from dpkg-parsechangelog output");

SKIP: {
    skip("Only checking debian/released-versions for unstable (not $distribution)", 2)
        if $distribution ne 'unstable';
    my $found=0;
    ok(open(C, "<debian/released-versions"), "successfully opened debian/released-versions");
    while (<C>) {
        chomp;
        $found++,last if $_ eq $upstream_version;
    }
    close C;
    ok($found, "found version $upstream_version in debian/released-versions");
}