view release on metacpan or  search on metacpan

t/00-api.t  view on Meta::CPAN

#/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Env;
use POSIX           qw/:fcntl_h/;
use Scalar::Util    qw/weaken/;
use Test::Most;

use FFI::Platypus;
use FFI::Platypus::Buffer;
use FFI::Platypus::Memory   qw/strdup calloc free/;
use FFI::Platypus::Declare;

use constant
{
    S_IFIFO => 0010000,
};

diag('00-api.t');

if (!$ENV{TEST_FUNCTION})
{
    plan(skip_all => 'TEST_FUNCTION not enabled so it will be skipped');
}

use_ok('GlusterFS::GFAPI::FFI');

my $api = GlusterFS::GFAPI::FFI->new();

ok(defined($api) && ref($api) eq 'GlusterFS::GFAPI::FFI'
    , 'GlusterFS::GFAPI::FFI - new()');

# new
my $fs;

subtest 'new' => sub
{
    $fs = GlusterFS::GFAPI::FFI::glfs_new('libgfapi-perl');

    ok(defined($fs), sprintf('glfs_new(): %s', $fs // 'undef'));
};

# set_volfile_server
subtest 'set_volfile_server' => sub
{
    my $retval = GlusterFS::GFAPI::FFI::glfs_set_volfile_server($fs, 'tcp', 'node1', 24007);

    ok($retval == 0, sprintf('glfs_set_volfile_server(): %d', $retval));

    diag("error: $!") if ($retval);
};

# init
subtest 'init' => sub
{
    my $retval = GlusterFS::GFAPI::FFI::glfs_init($fs);

    ok($retval == 0, sprintf('glfs_init(): %d', $retval));

    diag("error: $!") if ($retval);
};

# get_volumeid
subtest 'get_volumeid' => sub
{
    my $expected;