GlusterFS-GFAPI-FFI
view release on metacpan or search on metacpan
ok($retval == 0, sprintf('glfs_lstat(): %d', $retval));
diag("error: $!") if ($retval);
my $perm = $stat->st_mode & (S_IRWXU | S_IRWXG | S_IRWXO);
cmp_ok($perm, '==', 0644, ' mode : ' . sprintf('%o', $perm));
};
my ($login, $pass, $uid, $gid) = getpwuid($<);
# chown
subtest 'chown' => sub
{
my $retval = GlusterFS::GFAPI::FFI::glfs_chown($fs, "/$fname", $uid, $gid);
ok($retval == 0, sprintf('glfs_chown(): %d', $retval));
diag("error: $!") if ($retval);
};
( run in 0.273 second using v1.01-cache-2.11-cpan-8d75d55dd25 )