Acme-Lingua-EN-Inflect-Modern
view release on metacpan or search on metacpan
t/classical_all.t view on Meta::CPAN
use Acme::Lingua::EN::Inflect::Modern qw(PL_N classical);
use Test::More 'no_plan';
# DEFAULT...
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brother's"; # classical others not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
# CLASSICAL PLURALS ACTIVATED...
classical "all";
is PL_N("error", 0) => "error"; # classical "zero" active
is PL_N("wildebeest") => "wildebeest"; # classical "herd" active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brethren"; # classical others active
is PL_N("person") => "person's"; # classical "persons" active
is PL_N("formula") => "formulae"; # classical "ancient" active
# CLASSICAL PLURALS DEACTIVATED...
classical all => 0;
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("Sally") => "Sally's"; # classical "names" not active
is PL_N("brother") => "brother's"; # classical others not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
# CLASSICAL PLURALS REACTIVATED...
classical all => 1;
is PL_N("error", 0) => "error"; # classical "zero" active
is PL_N("wildebeest") => "wildebeest"; # classical "herd" active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brethren"; # classical others active
is PL_N("person") => "person's"; # classical "persons" active
is PL_N("formula") => "formulae"; # classical "ancient" active
# CLASSICAL PLURALS REDEACTIVATED...
classical 0;
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("Sally") => "Sally's"; # classical "names" not active
is PL_N("brother") => "brother's"; # classical others not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
# CLASSICAL PLURALS REREACTIVATED...
classical 1;
is PL_N("error", 0) => "error"; # classical "zero" active
is PL_N("wildebeest") => "wildebeest"; # classical "herd" active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brethren"; # classical others active
is PL_N("person") => "person's"; # classical "persons" active
is PL_N("formula") => "formulae"; # classical "ancient" active
# CLASSICAL PLURALS REREDEACTIVATED...
classical 0;
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("Sally") => "Sally's"; # classical "names" not active
is PL_N("brother") => "brother's"; # classical others not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
# CLASSICAL PLURALS REREREACTIVATED...
classical;
is PL_N("error", 0) => "error"; # classical "zero" active
is PL_N("wildebeest") => "wildebeest"; # classical "herd" active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brethren"; # classical others active
is PL_N("person") => "person's"; # classical "persons" active
is PL_N("formula") => "formulae"; # classical "ancient" active
t/classical_ancient.t view on Meta::CPAN
use Acme::Lingua::EN::Inflect::Modern qw(PL_N classical);
use Test::More 'no_plan';
# DEFAULT...
is PL_N('formula') => "formula's"; # classical 'ancient' not active
# "person" PLURALS ACTIVATED...
classical 'ancient';
is PL_N('formula') => 'formulae'; # classical 'ancient' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N('wildebeest') => "wildebeest's"; # classical 'herd' not active
is PL_N('error', 0) => "error's"; # classical 'zero' not active
is PL_N('Sally') => "Sally's"; # classical 'names' active
is PL_N('brother') => "brother's"; # classical 'all' not active
is PL_N('person') => 'people'; # classical 'persons' not active
t/classical_ancient_1.t view on Meta::CPAN
use Acme::Lingua::EN::Inflect::Modern qw(PL_N classical);
use Test::More 'no_plan';
# DEFAULT...
is PL_N('formula') => "formula's"; # classical 'ancient' not active
# "person" PLURALS ACTIVATED...
classical ancient => 1;
is PL_N('formula') => 'formulae'; # classical 'ancient' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N('wildebeest') => "wildebeest's"; # classical 'herd' not active
is PL_N('error', 0) => "error's"; # classical 'zero' not active
is PL_N('Sally') => "Sally's"; # classical 'names' active
is PL_N('brother') => "brother's"; # classical 'all' not active
is PL_N('person') => 'people'; # classical 'persons' not active
t/classical_herd.t view on Meta::CPAN
is PL_N('wildebeest') => "wildebeest's"; # classical 'herd' not active
# HERD PLURALS ACTIVATED...
classical 'herd';
is PL_N('wildebeest') => 'wildebeest'; # classical 'herd' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N('person') => 'people'; # classical 'persons' not active
is PL_N('formula') => "formula's"; # classical 'ancient' not active
is PL_N('error', 0) => "error's"; # classical 'zero' not active
is PL_N('Sally') => "Sally's"; # classical 'names' active
is PL_N('brother') => "brother's"; # classical 'all' not active
t/classical_herd_1.t view on Meta::CPAN
is PL_N('wildebeest') => "wildebeest's"; # classical 'herd' not active
# HERD PLURALS ACTIVATED...
classical herd => 1;
is PL_N('wildebeest') => 'wildebeest'; # classical 'herd' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N('person') => 'people'; # classical 'persons' not active
is PL_N('formula') => "formula's"; # classical 'ancient' not active
is PL_N('error', 0) => "error's"; # classical 'zero' not active
is PL_N('Sally') => "Sally's"; # classical 'names' active
is PL_N('brother') => "brother's"; # classical 'all' not active
t/classical_names.t view on Meta::CPAN
classical "names";
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("Jones", 0) => "Jones's"; # always inflects that way
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("brother") => "brother's"; # classical "all" not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
# "person" PLURALS DEACTIVATED...
classical names=>0;
is PL_N("Sally") => "Sally's"; # classical "names" not active
is PL_N("Jones", 0) => "Jones's"; # always inflects that way
t/classical_names_1.t view on Meta::CPAN
classical names=>1;
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("Jones") => "Jones's"; # always inflects that way
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("brother") => "brother's"; # classical "all" not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
t/classical_person.t view on Meta::CPAN
is PL_N("person") => "people"; # classical "persons" not active
# "person" PLURALS ACTIVATED...
classical "persons";
is PL_N("person") => "person's"; # classical "persons" active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brother's"; # classical "all" not active
t/classical_person_1.t view on Meta::CPAN
is PL_N('person') => 'people'; # classical 'persons' not active
# "person" PLURALS ACTIVATED...
classical persons=>1;
is PL_N('person') => "person's"; # classical 'persons' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
is PL_N("error", 0) => "error's"; # classical "zero" not active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brother's"; # classical "all" not active
t/classical_zero.t view on Meta::CPAN
classical 'zero';
is PL_N('error', 0) => 'error'; # classical 'zero' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N("wildebeest") => "wildebeest's"; # classical "herd" not active
is PL_N("Sally") => "Sally's"; # classical "names" active
is PL_N("brother") => "brother's"; # classical "all" not active
is PL_N("person") => "people"; # classical "persons" not active
is PL_N("formula") => "formula's"; # classical "ancient" not active
t/classical_zero_1.t view on Meta::CPAN
classical zero => 1;
is PL_N('error', 0) => 'error'; # classical 'zero' active
# OTHER CLASSICALS NOT ACTIVATED...
is PL_N('wildebeest') => "wildebeest's"; # classical 'herd' not active
is PL_N('Sally') => "Sally's"; # classical 'names' active
is PL_N('brother') => "brother's"; # classical 'all' not active
is PL_N('person') => "people"; # classical 'persons' not active
is PL_N('formula') => "formula's"; # classical 'ancient' not active
( run in 0.906 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )