mirror of
https://git.dpkg.org/git/dpkg/dupload.git
synced 2025-04-13 07:14:01 +00:00
9b3147741e
This switches from the hardcoded GnuPG handling to automatically and transparently supporting in addition both SOP and Sequoia-PGP if available. It will use the vendor keyrings to verify the upload instead of whatever might be in the GnuPG keystore. This is actually a reintroduction of this change, which had to be reverted, as there was previously no easy way to specify the keyrings to use to check the signatures against.
58 lines
1.2 KiB
Perl
58 lines
1.2 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright © 2021 Guillem Jover <guillem@debian.org>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use Test::Dupload qw(:needs);
|
|
|
|
test_needs_author();
|
|
test_needs_command('shellcheck');
|
|
|
|
my @files = qw(
|
|
hooks/debian-security-auth
|
|
);
|
|
|
|
my @shellcheck_opts = (
|
|
);
|
|
|
|
plan tests => scalar @files;
|
|
|
|
sub shell_syntax_ok
|
|
{
|
|
my $file = shift;
|
|
|
|
my $tags = qx(shellcheck @shellcheck_opts $file 2>&1);
|
|
|
|
# Fixup the output:
|
|
chomp $tags;
|
|
|
|
my $ok = length $tags == 0;
|
|
|
|
ok($ok, 'shellcheck');
|
|
if (not $ok) {
|
|
diag($tags);
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
foreach my $file (@files) {
|
|
shell_syntax_ok($file);
|
|
}
|