Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use strict;
use File::Slurp qw(write_file);
BEGIN { use_ok('Config::Abstraction') }
my $test_dir = tempdir();
my $test_file = File::Spec->catdir($test_dir, 'test');
write_file(File::Spec->catdir($test_file), <<'FIN');
files /etc/group,/etc/passwd
FIN
my $config = Config::Abstraction->new(
config_dirs => [$test_dir],
config_file => 'test',
);
diag(Data::Dumper->new([$config])->Dump()) if($ENV{'TEST_VERBOSE'});
cmp_ok(@{$config->get('files')}[0], 'eq', '/etc/group', 'testing');
done_testing();