#!perl
use strict;
use warnings;
use Test::More tests => 6;
use Test::Exception;
BEGIN {
use_ok ('Crypt::GpgME');
}
my $version;
lives_ok (sub {
$version = Crypt::GpgME->check_version;
}, 'check_version without arguments');
is ($version, Crypt::GpgME->GPGME_VERSION, 'version looks sane');
lives_ok (sub {
$version = Crypt::GpgME->check_version( Crypt::GpgME->GPGME_VERSION );
}, 'check_version with current version number');
is ($version, Crypt::GpgME->GPGME_VERSION, 'version matches');
throws_ok (sub {
$version = Crypt::GpgME->check_version( '10.' . Crypt::GpgME->GPGME_VERSION );
}, qr/version requirement is not met/, 'check_version with future version');