view release on metacpan or  search on metacpan

t/inflections.t  view on Meta::CPAN

#!/usr/bin/env perl

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..1034\n"; }
END {print "not ok 1\n" unless $loaded;}
use Lingua::ENG::Inflect qw( :ALL );
$loaded = 1;
print "ok 1\n";

my $count = 2;
sub ok($;$$)
{
	my $ok = $_[0];
	print "not " unless $ok;
	print "ok $count";
	print "\t# $_[1]" if $_[1];
	print " -> $_[2]" if $_[2];
	print "\n";
	$count++;
	return $ok;
}

######################### End of black magic.

sub test_eq($$)
{
	PL_eq($_[0],$_[1])    ||
	PL_N_eq($_[0],$_[1])  ||
	PL_V_eq($_[0],$_[1])  ||
	PL_ADJ_eq($_[0],$_[1]);
}

foreach (<DATA>)
{
    #        1            2               3         4    5
	if (/^\s*(.*?)\s*->\s*(.*?)\s*(?:\|\s*(.*?)\s*)?(#\s*(.*))?$/)
	{
		$singular     = $1;
		$mod_plural   = $2;
		$class_plural = $3 || $2;
		$comment      = $5 || '';
		$is_nv        = ($comment =~ /verb/i) ? '_V'
			          : ($comment =~ /noun/i) ? '_N'
			          : '';

        classical all=>0, names=>0;
		$mod_PL_V     = PL_V($singular);
		$mod_PL_N     = PL_N($singular);
		$mod_PL       = PL($singular);
		$mod_PL_val   = ($is_nv eq '_V') ? $mod_PL_V
			          : ($is_nv eq '_N') ? $mod_PL_N
			          : $mod_PL;

        classical all=>1;
		$class_PL_V     = PL_V($singular);
		$class_PL_N     = PL_N($singular);
		$class_PL       = PL($singular);
		$class_PL_val   = ($is_nv eq '_V') ? $class_PL_V
			            : ($is_nv eq '_N') ? $class_PL_N
			            : $class_PL;

		ok (
			($mod_plural eq $mod_PL_val) 
		    &&
			($class_plural eq $class_PL_val) 
		    &&
			( test_eq($singular,$mod_plural) && test_eq($mod_plural,$singular) )
		    &&
			( test_eq($singular,$class_plural) && test_eq($class_plural,$singular) )
		   , $singular
           , $mod_PL_val eq $class_PL_val ? $mod_PL_val : "$mod_PL_val|$class_PL_val"