view release on metacpan or  search on metacpan

t/alien_openssl.t  view on Meta::CPAN

  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";
    }
  };