Alt-FFI-Raw-Platypus

 view release on metacpan or  search on metacpan

t/ffi_raw.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test2::Tools::FFI;
use lib 't/lib';
use FFI::Raw;
use Math::BigInt;
use POSIX;
use File::Spec;
use Env qw(@PATH);
use File::Copy qw(cp);
use File::Temp qw(tempdir);

my($shared) = ffi->test->lib;

t/ffi_raw__bigint.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test2::Tools::FFI;
use lib 't/lib';
use FFI::Raw;
use bigint;

my($shared) = ffi->test->lib;

subtest 'simple-args' => sub {

  # probably don't n eed Math::Int64 on 64 bit Perls
  # patches welcome to prove it.
  skip_all 'test requires Math::Int64' unless eval 'use Math::Int64; 1';

t/ffi_raw_callback.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test2::Tools::FFI;
use lib 't/lib';
use FFI::Raw;

my($shared) = ffi->test->lib;

subtest 'callbacks' => sub {

  my $take_one_int_callback = FFI::Raw->new(
    $shared, 'take_one_int_callback',
    FFI::Raw::void, FFI::Raw::ptr
  );

t/ffi_raw_memptr.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test2::Tools::FFI;
use lib 't/lib';
use FFI::Raw;

my($shared) = ffi->test->lib;

subtest 'basic' => sub {

  my $greeting = "Hello\0World";

  my $buf = FFI::Raw::MemPtr->new_from_buf($greeting, length $greeting);

t/ffi_raw_ptr.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test2::Tools::FFI;
use lib 't/lib';
use FFI::Raw;

my($shared) = ffi->test->lib;

subtest 'opaque' => sub {

  {
    package Foo;

    no warnings 'once';