The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests => 7;

BEGIN { use_ok('Crypt::OpenSSL::X509') };

my $x509 = Crypt::OpenSSL::X509->new_from_file('certs/thawte-ec.pem');
isa_ok($x509, 'Crypt::OpenSSL::X509');

my $type = $x509->pubkey_type;

SKIP: {
	skip 'Test irrelevant without ec-support in openssl', 5 unless defined($type);
	is($type, 'ec', 'ec type');
	is($x509->sig_alg_name, 'ecdsa-with-SHA384', 'sig algo');
	is($x509->key_alg_name, 'id-ecPublicKey', 'key algo');
	ok($x509->bit_length == 384, 'bit length');
	is($x509->curve, 'secp384r1', 'curve');
}