use strict;
use Archive::Libarchive::FFI qw( :all );
plan skip_all => 'requires archive_read_disk_new'
unless Archive::Libarchive::FFI->can('archive_read_disk_new');
plan tests => 5;
my $r;
my $a = archive_read_disk_new();
ok $a, 'archive_read_disk_new';
my $gname = archive_read_disk_gname($a, 42);
is $gname, undef, 'archive_read_disk_gname';
my $uname = archive_read_disk_uname($a, 42);
is $uname, undef, 'archive_read_disk_uname';
$r = archive_read_close($a);
is $r, ARCHIVE_OK, 'archive_read_close';
$r = archive_read_free($a);
is $r, ARCHIVE_OK, 'archive_read_free';