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);

##</code><code>##

$ perl openpgp_sample.t 
1..1
encrypt: datasize not multiple of blocksize (16 bytes) at /usr/local/share/perl5/Crypt/OpenPGP/CFB.pm line 57.
# Looks like your test exited with 2 before it could output anything.