view release on metacpan or  search on metacpan

t/alien_openssl.t  view on Meta::CPAN

alien_ok 'Alien::OpenSSL';
alien_diag 'Alien::OpenSSL';

subtest 'ffi' => sub {

  skip_all 'Test does not (yet) work on cygwin' # TODO
    if $^O eq 'cygwin';

  skip_all 'Test requires dynamic libs'
    unless Alien::OpenSSL->dynamic_libs;

  note "dynamic=$_" for Alien::OpenSSL->dynamic_libs;

  ffi_ok with_subtest {
    my($ffi) = @_;
    $ffi->ignore_not_found(1);
    my $version_function = $ffi->function('OpenSSL_version' => ['int'] => 'string') ||
                           $ffi->function('SSLeay_version'  => ['int'] => 'string');
    ok($version_function, 'has SSLeay or OpenSSL _version function');
    if($version_function)
    {
      my $version = $version_function->call(0);
      ok $version, 'version function returns a value';
      note "version = $version";
    }
  };
};

subtest 'xs' => sub {

  my $xs = do { local $/; <DATA> };

  xs_ok $xs, with_subtest {
    my($module) = @_;
    my $version = $module->version;
    ok $version;
    note "version = $version";
  };
};

done_testing;

__DATA__
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <openssl/crypto.h>

MODULE = TA_MODULE PACKAGE = TA_MODULE

const char *
version(klass)
    const char *klass;
  CODE:
#ifdef SSLEAY_VERSION
    RETVAL = SSLeay_version(SSLEAY_VERSION);
#else
    RETVAL = OpenSSL_version(OPENSSL_VERSION);
#endif
  OUTPUT:
    RETVAL