view release on metacpan or  search on metacpan

t/mutant_killers.t  view on Meta::CPAN

	# If == were flipped to !=, script_name would be re-derived every iteration.
	my $dir1 = tempdir(CLEANUP => 1);
	my $dir2 = tempdir(CLEANUP => 1);
	_write_file($dir1, 'base.yaml', "dir1key: dir1val\n");
	_write_file($dir2, 'base.yaml', "dir2key: dir2val\n");

	my $cfg = Config::Abstraction->new(
		config_dirs => [$dir1, $dir2],
	);
	ok(defined($cfg),                  'object created with multiple dirs');
	# Both dirs loaded; script_name consistent across both iterations
	is($cfg->get('dir1key'), 'dir1val', 'dir1 loaded correctly');
	is($cfg->get('dir2key'), 'dir2val', 'dir2 loaded correctly');
	ok(defined($cfg->{script_name}),   'script_name was set');
};

# ===========================================================================
# COND_INV_570_8
# _load_config() - path construction: catfile vs bare filename
# Kills: inversion of the length($dir) ternary condition
# ===========================================================================