use strict;
use warnings;

use Test::More tests => 1;

use Crypt::OpenPGP;
use Crypt::Rijndael;
use Config;

my $message = "Hello world!\n";
my %args = (Compat => 'GnuPG');
if($^O eq 'MSWin32') {
    @args{qw/PubRing SecRing/} = (
        '.../gnupg/pubring.gpg',
        '.../gnupg/secring.gpg',
    )
}
my $pgp = Crypt::OpenPGP->new (%args);
my $sig = $pgp->sign (
    Data        => $message,
    Clearsign   => 1,
    KeyID       => $ENV{GPG_SECRET_KEY},
    Passphrase  => $ENV{GPG_PP}
);

ok ($sig) or diag ($pgp->errstr);
diag $sig;
diag sprintf "%-20s => v%s (%s)", 'perl', $], $Config{myuname};
diag sprintf "%-20s => v%s", 'Crypt::OpenPGP', $Crypt::OpenPGP::VERSION;
diag sprintf "%-20s => v%s", 'Crypt::Rijndael', $Crypt::Rijndael::VERSION;
diag qx/gpg --version/;

##</code><code>##

__WINDOWS__
1..1
ok 1
# -----BEGIN PGP SIGNED MESSAGE-----
# Hash: SHA256
#
# Hello world!
# -----BEGIN PGP SIGNATURE-----
# Version: Crypt::OpenPGP 1.12
# ...
# -----END PGP SIGNATURE-----
# perl                 => v5.020003 (Win32 strawberry-perl 5.20.3.3 #1 Sun Mar  6 19:06:29 2016 x64)
# Crypt::OpenPGP       => v1.12
# Crypt::Rijndael      => v1.13
# gpg (GnuPG) 2.2.11

##</code><code>##

__VIRTUAL__LINUX__
1..1
ok 1
# -----BEGIN PGP SIGNED MESSAGE-----
# Hash: SHA256
#
# Hello world!
# -----BEGIN PGP SIGNATURE-----
# Version: Crypt::OpenPGP 1.12
# ...
# -----END PGP SIGNATURE-----
# perl                 => v5.020003 (linux pryrtdebian 3.2.0-4-486 #1 debian 3.2.81-1 i686 gnulinux )
# Crypt::OpenPGP       => v1.12
# Crypt::Rijndael      => v1.13
# gpg (GnuPG) 1.4.12