view release on metacpan or  search on metacpan

t/Mock-Person-CZ/09-name.t  view on Meta::CPAN

use Test::More 'tests' => 13;
use Test::NoWarnings;

$Mock::Person::CZ::STRICT_NUM_NAMES = 3;

# Test.
my $ret1 = name();
like($ret1, qr{^\w+\ \w+\ \w+$}, 'Default name must be three words.');

# Test.
my @ret = split m/\ /ms, $ret1;
my @first = (@Mock::Person::CZ::first_male, @Mock::Person::CZ::first_female);
my $ret2 = any { $ret[0] eq $_ } @first;
is($ret2, 1, 'First name is really from first male/female names.');

# Test.
my @middle = (@Mock::Person::CZ::middle_male, @Mock::Person::CZ::middle_female);
$ret2 = any { $ret[1] eq $_ } @middle;
is($ret2, 1, 'Middle name is really from middle male/female names.');

# Test.
my @last = (@Mock::Person::CZ::last_male, @Mock::Person::CZ::last_female);
$ret2 = any { $ret[2] eq $_ } @last;
is($ret2, 1, 'Last name is really from last male/female names.');

# Test.
$ret1 = name('male');
like($ret1, qr{^\w+\ \w+\ \w+$}, 'Male name must be three words.');

# Test.
@ret = split m/\ /ms, $ret1;
my @first_males = @Mock::Person::CZ::first_male;
$ret2 = any { $ret[0] eq $_ } @first_males;
is($ret2, 1, 'First name is really from first male names.');

# Test.
my @middle_males = @Mock::Person::CZ::middle_male;
$ret2 = any { $ret[1] eq $_ } @middle_males;
is($ret2, 1, 'Middle name is really from middle male names.');

# Test.
my @last_males = @Mock::Person::CZ::last_male;
$ret2 = any { $ret[2] eq $_ } @last_males;
is($ret2, 1, 'Last name is really from last male names.');

# Test.
$ret1 = name('female');
like($ret1, qr{^\w+\ \w+\ \w+$}, 'Female name must be three words.');

# Test.
@ret = split m/\ /ms, $ret1;
my @first_females = @Mock::Person::CZ::first_female;
$ret2 = any { $ret[0] eq $_ } @first_females;
is($ret2, 1, 'First name is really from first female names.');

# Test.
my @middle_females = @Mock::Person::CZ::middle_female;
$ret2 = any { $ret[1] eq $_ } @middle_females;
is($ret2, 1, 'Middle name is really from middle female names.');

# Test.

t/Mock-Person-CZ/10-name_female.t  view on Meta::CPAN

use Test::More 'tests' => 5;
use Test::NoWarnings;

$Mock::Person::CZ::STRICT_NUM_NAMES = 3;

# Test.
my $ret1 = name_female();
like($ret1, qr{^\w+\ \w+\ \w+$}, 'Default female name must be three words.');

# Test.
my @ret = split m/\ /ms, $ret1;
my @first_females = @Mock::Person::CZ::first_female;
my $ret2 = any { $ret[0] eq $_ } @first_females;
is($ret2, 1, 'First female name is really from first female names.');

# Test.
my @middle_females = @Mock::Person::CZ::middle_female;
$ret2 = any { $ret[1] eq $_ } @middle_females;
is($ret2, 1, 'Middle female name is really from middle female names.');

# Test.

t/Mock-Person-CZ/11-name_male.t  view on Meta::CPAN

use Test::More 'tests' => 5;
use Test::NoWarnings;

$Mock::Person::CZ::STRICT_NUM_NAMES = 3;

# Test.
my $ret1 = name_male();
like($ret1, qr{^\w+\ \w+\ \w+$}, 'Default male name must be three words.');

# Test.
my @ret = split m/\ /ms, $ret1;
my @first_males = @Mock::Person::CZ::first_male;
my $ret2 = any { $ret[0] eq $_ } @first_males;
is($ret2, 1, 'First male name is really from first male names.');

# Test.
my @middle_males = @Mock::Person::CZ::middle_male;
$ret2 = any { $ret[1] eq $_ } @middle_males;
is($ret2, 1, 'Middle male name is really from middle male names.');

# Test.