#!/usr/bin/perl

use strict;
use warnings;

use Test::MockObject::Extends;

my $mock_property = Test::MockObject::Extends->new('MyApp::Property');
$mock_property->mock('id', '1');
$mock_property->mock('su_pwd', 'password');

my $admin = MyApp::Admin->new(owner => $mock_property, id => 0);
is_deeply(
	$admin, 
	{
		admin_id => 0,
		domain_id => '1',
		firstname => 'Super',
		lastname => 'User',
		username => 'su',
		password => 'password',
	},
	"new() with id eq '0' (superuser)"
);

-----------------------------------

package MyApp::Admin;

use strict;
use warnings;

use Params::Validate ':all';

sub new
{
	my $class = shift;
        my %args = validate(@_,
		id => { type => SCALAR },
		owner => { isa => 'MyApp::Property' },
	);

        my $self = bless {
		admin_id => $args{id},
		domain_id => $args{owner}->id,
		firstname => 'Super',
		lastname => 'User',
		username => 'su',
		password => $args{owner}->su_pwd,
	}, $class;

	return $self;
}