view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/common_match2.t
t/common_match_owner.t
t/common_memory_write.t
t/common_read_data_into_fh.t
t/common_read_disk.t
t/common_read_open_error.t
t/common_signature.t
t/common_sparse.t
t/common_stat.t
t/common_uid_gid_lookup.t
t/common_unicode.t
t/common_universal_decompressor.t
t/common_user_group_lookup.t
t/foo.tar
t/foo.tar.Z
t/foo.tar.bz2
t/foo.tar.gz
t/foo.txt.Z.uu
t/foo.txt.gz.uu
t/foo.xar
t/foo.zip

t/common_unicode.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use open ':std', ':encoding(utf8)';
use Test::More;
use Archive::Libarchive::FFI qw( :all );

plan skip_all => 'test requires unicode locale' unless archive_perl_utf8_mode();
plan tests => 2;

my $e = archive_entry_new();

my $r = archive_entry_set_pathname($e, "привет.txt");
is $r, ARCHIVE_OK, 'archive_entry_set_pathname';
is archive_entry_pathname($e), "привет.txt", 'archive_entry_pathname';