1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
package TestPhrase;
use strict;
use warnings;
use Exporter 'import';
use Test::More;
use Lingua::EN::Inflect::Phrase qw/to_PL to_S/;
our @EXPORT_OK = 'test_phrase';
sub test_phrase {
my ($singular, $plural, $addendum) = @_;
if ($addendum) {
$addendum = ": $addendum";
}
else {
$addendum = '';
}
local $Test::Builder::Level = $Test::Builder::Level + 1;
is to_PL($singular), $plural, "'$singular' pluralizes to '$plural'$addendum";
is to_S($plural), $singular, "'$plural' singularizes to '$singular'$addendum";
is to_PL($plural), $plural, "'$plural' unchanged when pluralized$addendum";
is to_S($singular), $singular, "'$singular' unchanged when singularized$addendum";
}
1;
# vim:et sts=2 sw=2 tw=0:
|
