use strict;
use warnings;
use Test::More;
use Test::NoWarnings ();
use Lingua::EN::Inflect::Phrase qw/to_S to_PL/;
use lib 't/lib';
use TestPhrase 'test_phrase';
# Some bugs I found while working on String::ToIdentifier::EN.
test_phrase '2 dots', '2 dots';
test_phrase '2 at signs', '2 at signs';
test_phrase '2 left braces', '2 left braces';
test_phrase '2 right braces', '2 right braces';
is to_PL('right brace'), 'right braces',
'"right brace" pluralizes to "right braces"';
test_phrase '2 single quotes', '2 single quotes';
# Here's one oliver found, "a" singularizes and pluralizes to "some"
test_phrase 'a', 'as';
# Some bugs people found while using Schema::Loader
test_phrase 'person', 'people';
test_phrase 'hero', 'heroes';
test_phrase 'referal log', 'referal logs'; # sic
test_phrase 'referral log', 'referral logs';
test_phrase 'alias', 'aliases';
# this one's from haarg
test_phrase 'status', 'statuses';
# this one's from jhanna
# $prefer_nouns defaults to 1
test_phrase 'source split', 'source splits', 'prefer_nouns=1';
{
local $Lingua::EN::Inflect::Phrase::prefer_nouns = 0;
test_phrase 'source splits', 'sources split', 'prefer_nouns=0';
}
Test::NoWarnings::had_no_warnings;
done_testing;
# vim:et sts=2 sw=2 tw=0: