view release on metacpan or  search on metacpan

t/extended_tests.t  view on Meta::CPAN

	# /^(.+)\s+on farm$/i - untested branch
	is_deeply($obj->normalise(occupation => 'Labourer on farm'),
		['Labourer on a farm'], '"Labourer on farm" gains article "a"');

	is_deeply($obj->normalise(occupation => 'Carter on farm'),
		['Carter on a farm'], '"Carter on farm" also gains "a"');
};

# -----------------------------------------------------------------------
# _get_language - environment variable cascade (all fallback paths)
# -----------------------------------------------------------------------

subtest '_get_language - LANGUAGE env var used when detect() returns nothing' => sub {
	delete local $ENV{LC_ALL};
	delete local $ENV{LC_MESSAGES};
	delete local $ENV{LANG};
	local $ENV{LANGUAGE} = 'de_DE.UTF-8';

	# detect() returns nothing; _get_language must fall through to LANGUAGE
	my $guard = mock_scoped('I18N::LangTags::Detect::detect' => sub { () });