view release on metacpan or  search on metacpan

t/encoding_path.t  view on Meta::CPAN

use File::Temp qw(tempdir);
use Test::More 0.98;

sub _create_file { open my($fh), ">", $_[0] }

my $tempdir = tempdir(CLEANUP => 1);
_create_file("$tempdir/f1", "");
_create_file("$tempdir/f2", "");
_create_file("$tempdir/g1", "");

my @pw = getpwuid($>);

# the rest of the test is performed in Config-IOD-Reader dist

my $doc = Config::IOD->new->read_string(<<EOF);
[without_encoding]
home_dir  = ~
dirs  = $tempdir

[with_encoding]
home_dir  = !path ~