1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
use strict;
use Module::Signature;
use Test::More;
if ($^O ne 'cygwin') {
plan skip_all => "Cygwin only tests";
}
elsif (! $ENV{TEST_CYGWIN_GNUPG} ) {
plan skip_all => 'Set the environment variable TEST_CYGWIN_GNUPG to enable this test';
}
elsif (! -x '/usr/local/bin/gpg') {
plan skip_all => '/usr/local/bin/gpg not found';
}
plan tests => 1;
my $version = Module::Signature::_has_gpg();
like($version, qr/^\d+\.\d+\.\d+$/, "gpg version detected");
|
