|
Packit |
b893dc |
#!/usr/bin/perl
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
use strict;
|
|
Packit |
b893dc |
use warnings;
|
|
Packit |
b893dc |
use Test::More tests => 14;
|
|
Packit |
b893dc |
use Net::SSLeay;
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
eval "use Test::Exception;";
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
SKIP: {
|
|
Packit |
b893dc |
skip 'Need Test::Exception for the some tests', 6 if $@;
|
|
Packit |
b893dc |
lives_ok( sub { Net::SSLeay::randomize() }, 'randomizing' );
|
|
Packit |
b893dc |
lives_ok( sub { Net::SSLeay::load_error_strings() }, 'loading error strings' );
|
|
Packit |
b893dc |
lives_ok( sub { Net::SSLeay::SSLeay_add_ssl_algorithms() }, 'adding ssl algorithms' );
|
|
Packit |
b893dc |
#version numbers: 0x00903100 ~ 0.9.3, 0x0090600f ~ 0.6.9
|
|
Packit |
b893dc |
ok( Net::SSLeay::SSLeay() >= 0x00903100, 'SSLeay (version min 0.9.3)' );
|
|
Packit |
b893dc |
isnt( Net::SSLeay::SSLeay_version(), '', 'SSLeay (version string)' );
|
|
Packit |
b893dc |
is( Net::SSLeay::SSLeay_version(), Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_VERSION()), 'SSLeay_version optional argument' );
|
|
Packit |
b893dc |
}
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
is(Net::SSLeay::hello(), 1, 'hello world');
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
if (exists &Net::SSLeay::OpenSSL_version)
|
|
Packit |
b893dc |
{
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay(), Net::SSLeay::OpenSSL_version_num(), 'OpenSSL_version_num');
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
is(Net::SSLeay::OpenSSL_version(), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_VERSION()), 'OpenSSL_version optional argument');
|
|
Packit |
b893dc |
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_VERSION()), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_VERSION()), 'OpenSSL_version(OPENSSL_VERSION)');
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_CFLAGS()), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_CFLAGS()), 'OpenSSL_version(OPENSSL_CFLAGS)');
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_BUILT_ON()), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_BUILT_ON()), 'OpenSSL_version(OPENSSL_BUILT_ON)');
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_PLATFORM()), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_PLATFORM()), 'OpenSSL_version(OPENSSL_PLATFORM)');
|
|
Packit |
b893dc |
is(Net::SSLeay::SSLeay_version(Net::SSLeay::SSLEAY_DIR()), Net::SSLeay::OpenSSL_version(Net::SSLeay::OPENSSL_DIR()), 'OpenSSL_version(OPENSSL_DIR)');
|
|
Packit |
b893dc |
}
|
|
Packit |
b893dc |
else
|
|
Packit |
b893dc |
{
|
|
Packit |
b893dc |
SKIP: {
|
|
Packit |
b893dc |
skip('Only on OpenSSL 1.1.0 or later', 7);
|
|
Packit |
b893dc |
}
|
|
Packit |
b893dc |
}
|