[gitmo/Moose.git] / t / 004_basic.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More; 

BEGIN {
    eval "use Regexp::Common; use Locale::US;";
    plan skip_all => "Regexp::Common & Locale::US required for this test" if $@;        
    plan tests => 70;    
}

use Test::Exception;
use Scalar::Util 'isweak';

BEGIN {
    use_ok('Moose');           
}

{
    package Address;
    use strict;
    use warnings;
    use Moose;
    
    use Locale::US;
    use Regexp::Common 'zip';
    
    my $STATES = Locale::US->new;
    
    subtype USState 
        => as Str
        => where {
            (exists $STATES->{code2state}{uc($_)} || exists $STATES->{state2code}{uc($_)})
        };
        
    subtype USZipCode 
        => as Value
        => where {
            /^$RE{zip}{US}{-extended => 'allow'}$/            
        };
    
    has 'street'   => (is => 'rw', isa => 'Str');
    has 'city'     => (is => 'rw', isa => 'Str');
    has 'state'    => (is => 'rw', isa => 'USState');
    has 'zip_code' => (is => 'rw', isa => 'USZipCode');   
    
    package Company;
    use strict;
    use warnings;
    use Moose;
    
    has 'name'      => (is => 'rw', isa => 'Str');
    has 'address'   => (is => 'rw', isa => 'Address'); 
    has 'employees' => (is => 'rw', isa => subtype ArrayRef => where { 
        ($_->isa('Employee') || return) for @$_; 1 
    });    
    
    sub BUILD {
        my ($self, $params) = @_;
        if ($params->{employees}) {
            foreach my $employee (@{$params->{employees}}) {
                $employee->company($self);
            }
        }
    }
    
    sub get_employee_count { scalar @{(shift)->employees} }
    
    package Person;
    use strict;
    use warnings;
    use Moose;
    
    has 'first_name'     => (is => 'rw', isa => 'Str');
    has 'last_name'      => (is => 'rw', isa => 'Str');       
    has 'middle_initial' => (is => 'rw', isa => 'Str', predicate => 'has_middle_initial');  
    has 'address'        => (is => 'rw', isa => 'Address');
    
    sub full_name {
        my $self = shift;
        return $self->first_name . 
              ($self->has_middle_initial ? ' ' . $self->middle_initial . '. ' : ' ') .
               $self->last_name;
    }
      
    package Employee;
    use strict;
    use warnings;
    use Moose;  
    
    extends 'Person';
    
    has 'title'   => (is => 'rw', isa => 'Str');
    has 'company' => (is => 'rw', isa => 'Company', weak_ref => 1);  
}

my $ii;
lives_ok {
    $ii = Company->new(
        name    => 'Infinity Interactive',
        address => Address->new(
            street   => '565 Plandome Rd., Suite 307',
            city     => 'Manhasset',
            state    => 'NY',
            zip_code => '11030'
        ),
        employees => [
            Employee->new(
                first_name     => 'Jeremy',
                last_name      => 'Shao',
                title          => 'President / Senior Consultant',
                address        => Address->new(city => 'Manhasset', state => 'NY')
            ),
            Employee->new(
                first_name     => 'Tommy',
                last_name      => 'Lee',
                title          => 'Vice President / Senior Developer',
                address        => Address->new(city => 'New York', state => 'NY')
            ),        
            Employee->new(
                first_name     => 'Stevan',
                middle_initial => 'C',
                last_name      => 'Little',
                title          => 'Senior Developer',            
                address        => Address->new(city => 'Madison', state => 'CT')
            ),
            Employee->new(
                first_name     => 'Rob',
                last_name      => 'Kinyon',
                title          => 'Developer',            
                address        => Address->new(city => 'Marysville', state => 'OH')
            ),        
        ]
    );
} '... created the entire company successfully';
isa_ok($ii, 'Company');

is($ii->name, 'Infinity Interactive', '... got the right name for the company');

isa_ok($ii->address, 'Address');
is($ii->address->street, '565 Plandome Rd., Suite 307', '... got the right street address');
is($ii->address->city, 'Manhasset', '... got the right city');
is($ii->address->state, 'NY', '... got the right state');
is($ii->address->zip_code, 11030, '... got the zip code');

is($ii->get_employee_count, 4, '... got the right employee count');

# employee #1

isa_ok($ii->employees->[0], 'Employee');
isa_ok($ii->employees->[0], 'Person');

is($ii->employees->[0]->first_name, 'Jeremy', '... got the right first name');
is($ii->employees->[0]->last_name, 'Shao', '... got the right last name');
ok(!$ii->employees->[0]->has_middle_initial, '... no middle initial');
is($ii->employees->[0]->middle_initial, undef, '... got the right middle initial value');
is($ii->employees->[0]->full_name, 'Jeremy Shao', '... got the right full name');
is($ii->employees->[0]->title, 'President / Senior Consultant', '... got the right title');
is($ii->employees->[0]->company, $ii, '... got the right company');
ok(isweak($ii->employees->[0]->{company}), '... the company is a weak-ref');

isa_ok($ii->employees->[0]->address, 'Address');
is($ii->employees->[0]->address->city, 'Manhasset', '... got the right city');
is($ii->employees->[0]->address->state, 'NY', '... got the right state');

# employee #2

isa_ok($ii->employees->[1], 'Employee');
isa_ok($ii->employees->[1], 'Person');

is($ii->employees->[1]->first_name, 'Tommy', '... got the right first name');
is($ii->employees->[1]->last_name, 'Lee', '... got the right last name');
ok(!$ii->employees->[1]->has_middle_initial, '... no middle initial');
is($ii->employees->[1]->middle_initial, undef, '... got the right middle initial value');
is($ii->employees->[1]->full_name, 'Tommy Lee', '... got the right full name');
is($ii->employees->[1]->title, 'Vice President / Senior Developer', '... got the right title');
is($ii->employees->[1]->company, $ii, '... got the right company');
ok(isweak($ii->employees->[1]->{company}), '... the company is a weak-ref');

isa_ok($ii->employees->[1]->address, 'Address');
is($ii->employees->[1]->address->city, 'New York', '... got the right city');
is($ii->employees->[1]->address->state, 'NY', '... got the right state');

# employee #3

isa_ok($ii->employees->[2], 'Employee');
isa_ok($ii->employees->[2], 'Person');

is($ii->employees->[2]->first_name, 'Stevan', '... got the right first name');
is($ii->employees->[2]->last_name, 'Little', '... got the right last name');
ok($ii->employees->[2]->has_middle_initial, '... got middle initial');
is($ii->employees->[2]->middle_initial, 'C', '... got the right middle initial value');
is($ii->employees->[2]->full_name, 'Stevan C. Little', '... got the right full name');
is($ii->employees->[2]->title, 'Senior Developer', '... got the right title');
is($ii->employees->[2]->company, $ii, '... got the right company');
ok(isweak($ii->employees->[2]->{company}), '... the company is a weak-ref');

isa_ok($ii->employees->[2]->address, 'Address');
is($ii->employees->[2]->address->city, 'Madison', '... got the right city');
is($ii->employees->[2]->address->state, 'CT', '... got the right state');

# employee #4

isa_ok($ii->employees->[3], 'Employee');
isa_ok($ii->employees->[3], 'Person');

is($ii->employees->[3]->first_name, 'Rob', '... got the right first name');
is($ii->employees->[3]->last_name, 'Kinyon', '... got the right last name');
ok(!$ii->employees->[3]->has_middle_initial, '... got middle initial');
is($ii->employees->[3]->middle_initial, undef, '... got the right middle initial value');
is($ii->employees->[3]->full_name, 'Rob Kinyon', '... got the right full name');
is($ii->employees->[3]->title, 'Developer', '... got the right title');
is($ii->employees->[3]->company, $ii, '... got the right company');
ok(isweak($ii->employees->[3]->{company}), '... the company is a weak-ref');

isa_ok($ii->employees->[3]->address, 'Address');
is($ii->employees->[3]->address->city, 'Marysville', '... got the right city');
is($ii->employees->[3]->address->state, 'OH', '... got the right state');

## check some error conditions for the subtypes

dies_ok {
    Address->new(street => {}),    
} '... we die correctly with bad args';

dies_ok {
    Address->new(city => {}),    
} '... we die correctly with bad args';

dies_ok {
    Address->new(state => 'British Columbia'),    
} '... we die correctly with bad args';

lives_ok {
    Address->new(state => 'Connecticut'),    
} '... we live correctly with good args';

dies_ok {
    Address->new(zip_code => 'AF5J6$'),    
} '... we die correctly with bad args';

lives_ok {
    Address->new(zip_code => '06443'),    
} '... we live correctly with good args';

dies_ok {
    Company->new(employees => [ Person->new ]),    
} '... we die correctly with good args';

lives_ok {
    Company->new(employees => []),    
} '... we live correctly with good args';
Commit	Line	Data
5569c072	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
51c5e0fb	6	use Test::More;
	7
	8	BEGIN {
	9	eval "use Regexp::Common; use Locale::US;";
	10	plan skip_all => "Regexp::Common & Locale::US required for this test" if $@;
	11	plan tests => 70;
	12	}
	13
5569c072	14	use Test::Exception;
51c5e0fb	15	use Scalar::Util 'isweak';
51c5e0fb	16
5569c072	17	BEGIN {
	18	use_ok('Moose');
	19	}
	20
	21	{
	22	package Address;
	23	use strict;
	24	use warnings;
	25	use Moose;
	26
	27	use Locale::US;
	28	use Regexp::Common 'zip';
	29
	30	my $STATES = Locale::US->new;
	31
	32	subtype USState
	33	=> as Str
	34	=> where {
	35	(exists $STATES->{code2state}{uc($_)} \|\| exists $STATES->{state2code}{uc($_)})
	36	};
	37
	38	subtype USZipCode
	39	=> as Value
	40	=> where {
	41	/^$RE{zip}{US}{-extended => 'allow'}$/
	42	};
	43
182134e8	44	has 'street' => (is => 'rw', isa => 'Str');
	45	has 'city' => (is => 'rw', isa => 'Str');
	46	has 'state' => (is => 'rw', isa => 'USState');
	47	has 'zip_code' => (is => 'rw', isa => 'USZipCode');
5569c072	48
	49	package Company;
	50	use strict;
	51	use warnings;
	52	use Moose;
	53
182134e8	54	has 'name' => (is => 'rw', isa => 'Str');
5569c072	55	has 'address' => (is => 'rw', isa => 'Address');
	56	has 'employees' => (is => 'rw', isa => subtype ArrayRef => where {
	57	($_->isa('Employee') \|\| return) for @$_; 1
	58	});
	59
	60	sub BUILD {
d7f17ebb	61	my ($self, $params) = @_;
	62	if ($params->{employees}) {
	63	foreach my $employee (@{$params->{employees}}) {
5569c072	64	$employee->company($self);
	65	}
	66	}
	67	}
	68
	69	sub get_employee_count { scalar @{(shift)->employees} }
	70
	71	package Person;
	72	use strict;
	73	use warnings;
	74	use Moose;
	75
182134e8	76	has 'first_name' => (is => 'rw', isa => 'Str');
	77	has 'last_name' => (is => 'rw', isa => 'Str');
	78	has 'middle_initial' => (is => 'rw', isa => 'Str', predicate => 'has_middle_initial');
5569c072	79	has 'address' => (is => 'rw', isa => 'Address');
	80
	81	sub full_name {
	82	my $self = shift;
	83	return $self->first_name .
	84	($self->has_middle_initial ? ' ' . $self->middle_initial . '. ' : ' ') .
	85	$self->last_name;
	86	}
	87
	88	package Employee;
	89	use strict;
	90	use warnings;
	91	use Moose;
	92
	93	extends 'Person';
	94
182134e8	95	has 'title' => (is => 'rw', isa => 'Str');
5569c072	96	has 'company' => (is => 'rw', isa => 'Company', weak_ref => 1);
	97	}
	98
	99	my $ii;
	100	lives_ok {
	101	$ii = Company->new(
	102	name => 'Infinity Interactive',
	103	address => Address->new(
	104	street => '565 Plandome Rd., Suite 307',
	105	city => 'Manhasset',
	106	state => 'NY',
	107	zip_code => '11030'
	108	),
	109	employees => [
	110	Employee->new(
	111	first_name => 'Jeremy',
	112	last_name => 'Shao',
	113	title => 'President / Senior Consultant',
	114	address => Address->new(city => 'Manhasset', state => 'NY')
	115	),
	116	Employee->new(
	117	first_name => 'Tommy',
	118	last_name => 'Lee',
	119	title => 'Vice President / Senior Developer',
	120	address => Address->new(city => 'New York', state => 'NY')
	121	),
	122	Employee->new(
	123	first_name => 'Stevan',
	124	middle_initial => 'C',
	125	last_name => 'Little',
	126	title => 'Senior Developer',
	127	address => Address->new(city => 'Madison', state => 'CT')
	128	),
	129	Employee->new(
	130	first_name => 'Rob',
	131	last_name => 'Kinyon',
	132	title => 'Developer',
	133	address => Address->new(city => 'Marysville', state => 'OH')
	134	),
	135	]
	136	);
	137	} '... created the entire company successfully';
	138	isa_ok($ii, 'Company');
	139
	140	is($ii->name, 'Infinity Interactive', '... got the right name for the company');
	141
	142	isa_ok($ii->address, 'Address');
	143	is($ii->address->street, '565 Plandome Rd., Suite 307', '... got the right street address');
	144	is($ii->address->city, 'Manhasset', '... got the right city');
	145	is($ii->address->state, 'NY', '... got the right state');
	146	is($ii->address->zip_code, 11030, '... got the zip code');
	147
	148	is($ii->get_employee_count, 4, '... got the right employee count');
	149
	150	# employee #1
	151
	152	isa_ok($ii->employees->[0], 'Employee');
	153	isa_ok($ii->employees->[0], 'Person');
	154
	155	is($ii->employees->[0]->first_name, 'Jeremy', '... got the right first name');
	156	is($ii->employees->[0]->last_name, 'Shao', '... got the right last name');
	157	ok(!$ii->employees->[0]->has_middle_initial, '... no middle initial');
	158	is($ii->employees->[0]->middle_initial, undef, '... got the right middle initial value');
	159	is($ii->employees->[0]->full_name, 'Jeremy Shao', '... got the right full name');
160	is($ii->employees->[0]->title, 'President / Senior Consultant', '... got the right title');
161	is($ii->employees->[0]->company, $ii, '... got the right company');
51c5e0fb	162	ok(isweak($ii->employees->[0]->{company}), '... the company is a weak-ref');
5569c072	163
	164	isa_ok($ii->employees->[0]->address, 'Address');
	165	is($ii->employees->[0]->address->city, 'Manhasset', '... got the right city');
	166	is($ii->employees->[0]->address->state, 'NY', '... got the right state');
	167
	168	# employee #2
	169
	170	isa_ok($ii->employees->[1], 'Employee');
	171	isa_ok($ii->employees->[1], 'Person');
	172
	173	is($ii->employees->[1]->first_name, 'Tommy', '... got the right first name');
	174	is($ii->employees->[1]->last_name, 'Lee', '... got the right last name');
	175	ok(!$ii->employees->[1]->has_middle_initial, '... no middle initial');
	176	is($ii->employees->[1]->middle_initial, undef, '... got the right middle initial value');
	177	is($ii->employees->[1]->full_name, 'Tommy Lee', '... got the right full name');
	178	is($ii->employees->[1]->title, 'Vice President / Senior Developer', '... got the right title');
	179	is($ii->employees->[1]->company, $ii, '... got the right company');
51c5e0fb	180	ok(isweak($ii->employees->[1]->{company}), '... the company is a weak-ref');
5569c072	181
	182	isa_ok($ii->employees->[1]->address, 'Address');
	183	is($ii->employees->[1]->address->city, 'New York', '... got the right city');
	184	is($ii->employees->[1]->address->state, 'NY', '... got the right state');
	185
	186	# employee #3
	187
	188	isa_ok($ii->employees->[2], 'Employee');
	189	isa_ok($ii->employees->[2], 'Person');
	190
	191	is($ii->employees->[2]->first_name, 'Stevan', '... got the right first name');
	192	is($ii->employees->[2]->last_name, 'Little', '... got the right last name');
	193	ok($ii->employees->[2]->has_middle_initial, '... got middle initial');
	194	is($ii->employees->[2]->middle_initial, 'C', '... got the right middle initial value');
	195	is($ii->employees->[2]->full_name, 'Stevan C. Little', '... got the right full name');
	196	is($ii->employees->[2]->title, 'Senior Developer', '... got the right title');
	197	is($ii->employees->[2]->company, $ii, '... got the right company');
51c5e0fb	198	ok(isweak($ii->employees->[2]->{company}), '... the company is a weak-ref');
5569c072	199
	200	isa_ok($ii->employees->[2]->address, 'Address');
	201	is($ii->employees->[2]->address->city, 'Madison', '... got the right city');
	202	is($ii->employees->[2]->address->state, 'CT', '... got the right state');
	203
	204	# employee #4
	205
	206	isa_ok($ii->employees->[3], 'Employee');
	207	isa_ok($ii->employees->[3], 'Person');
	208
	209	is($ii->employees->[3]->first_name, 'Rob', '... got the right first name');
	210	is($ii->employees->[3]->last_name, 'Kinyon', '... got the right last name');
	211	ok(!$ii->employees->[3]->has_middle_initial, '... got middle initial');
	212	is($ii->employees->[3]->middle_initial, undef, '... got the right middle initial value');
	213	is($ii->employees->[3]->full_name, 'Rob Kinyon', '... got the right full name');
	214	is($ii->employees->[3]->title, 'Developer', '... got the right title');
	215	is($ii->employees->[3]->company, $ii, '... got the right company');
51c5e0fb	216	ok(isweak($ii->employees->[3]->{company}), '... the company is a weak-ref');
5569c072	217
	218	isa_ok($ii->employees->[3]->address, 'Address');
	219	is($ii->employees->[3]->address->city, 'Marysville', '... got the right city');
	220	is($ii->employees->[3]->address->state, 'OH', '... got the right state');
	221
	222	## check some error conditions for the subtypes
	223
	224	dies_ok {
51c5e0fb	225	Address->new(street => {}),
	226	} '... we die correctly with bad args';
	227
	228	dies_ok {
	229	Address->new(city => {}),
	230	} '... we die correctly with bad args';
	231
	232	dies_ok {
5569c072	233	Address->new(state => 'British Columbia'),
	234	} '... we die correctly with bad args';
	235
	236	lives_ok {
	237	Address->new(state => 'Connecticut'),
	238	} '... we live correctly with good args';
	239
	240	dies_ok {
	241	Address->new(zip_code => 'AF5J6$'),
	242	} '... we die correctly with bad args';
	243
	244	lives_ok {
	245	Address->new(zip_code => '06443'),
	246	} '... we live correctly with good args';
	247
	248	dies_ok {
	249	Company->new(employees => [ Person->new ]),
	250	} '... we die correctly with good args';
	251
	252	lives_ok {
	253	Company->new(employees => []),
	254	} '... we live correctly with good args';
	255