view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

use strict;
use Test::More 0.98;
use lib '../blib/lib', './blib/lib';
use_ok $_ for qw[Alien::libui];
done_testing;

t/01_ffi.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Alien;
use lib '../blib/lib', './blib/lib';
use Alien::libui;
$|++;
#
alien_ok 'Alien::libui';
#
ffi_ok { symbols => ['uiFreeText'] }, with_subtest {
    my $ffi = shift;
    $ffi->load_custom_type( '::StringPointer' => 'string_pointer' );
    my $free_text = $ffi->function( uiFreeText => ['string_pointer'] => 'void' );
    my $line      = 'Hi';