view release on metacpan or  search on metacpan

t/05-ffi_bundle.t  view on Meta::CPAN

use Test2::V0;
use Test::Alien 1.90;
use lib -d '../t' ? './lib' : 't/lib';
use Alien::libsdl2;
my $Win32 = $^O eq 'MSWin32';
#
#skip_all 'requires a shared object or DLL'
#    unless Alien::libsdl2->dynamic_libs;
#
#  nasty hack
#$ENV{LD_LIBRARY_PATH}   = Alien::libsdl2->dist_dir . '/lib';
#$ENV{DYLD_LIBRARY_PATH} = Alien::libsdl2->dist_dir . '/lib';
#
diag( 'dist_dir: ' . Alien::libsdl2->dist_dir . '/lib' );
diag( 'libs: ' . Alien::libsdl2->libs );
diag( 'cflags: ' . Alien::libsdl2->cflags );
diag( 'cflags static: ' . Alien::libsdl2->cflags_static );
eval { diag( 'Dynamic libs: ' . join ':', Alien::libsdl2->dynamic_libs ); };
warn $@ if $@;
diag( 'bin dir: ' . join( ' ', Alien::libsdl2->bin_dir ) );
alien_ok 'Alien::libsdl2';
todo 'I need to get bundle working on Windows without direct access to a Windows box' => sub {
    ffi_ok {
        api          => 1,
        symbols      => ['SDL_Init'],
        experimental => 2,
        lib          => [ Alien::libsdl2->dynamic_libs ]
        },
        with_subtest {
        my ($ffi) = @_;
        $ffi->bundle('Init');
        ok $ffi->function( Log => ['string'] => 'int' )->call("testing"),
            '[bundle] Log(...) returns okay';
    }
};
#
done_testing;