use strict;
use warnings;

use Test::More tests => 1;

use Crypt::OpenPGP;

my $message = "Hello world!\n";
my $pgp = Crypt::OpenPGP->new ();
my $sig = $pgp->sign (
    Data        => $message,
    Clearsign   => 1,
    KeyID       => $ENV{GPG_SECRET_KEY},
    Passphrase  => $ENV{GPG_PP}
);

ok ($sig) or diag ($pgp->errstr);