use strict;
use Archive::Libarchive::FFI qw( :all );
plan skip_all => 'requires archive_entry_mac_metadata' unless Archive::Libarchive::FFI->can('archive_entry_mac_metadata');
plan tests => 5;
my $r;
my $e = archive_entry_new();
is eval { archive_entry_mac_metadata($e) }, undef, 'archive_entry_mac_metadata';
$r = eval { archive_entry_set_mac_metadata($e, "foo\0bar") };
diag $@ if $@;
is $r, ARCHIVE_OK, 'archive_entry_set_mac_metadata';
is eval { archive_entry_mac_metadata($e) }, "foo\0bar", 'archive_entry_mac_metadata';
$r = eval { archive_entry_copy_mac_metadata($e, "baz\0bar") };
diag $@ if $@;
is $r, ARCHIVE_OK, 'archive_entry_copy_mac_metadata';
is eval { archive_entry_mac_metadata($e) }, "baz\0bar", 'archive_entry_mac_metadata';
archive_entry_free($e);