package TestPerson;

=head1 NAME

TestPerson       - test object

=cut

use strict;
use Data::Dumper;
#use Exporter;
#use GO::MiniTests qw/:std/;
use lib 'go/scratch/tools';
use GO::TestSet qw(dfv_test);
#use vars qw(@ISA);
use base qw(GO::Object::Generic); #GO::MiniTests);


sub _specification {
	my $self = shift;
	
	return (
		# required
		"name", {
			test => dfv_test('is_a_string_p', { this => 1 }),
			required => 1,
		},
		"age", {
			test => dfv_test('is_a_number_p', { this => 1 }),
		},
		"alias", {
			test => dfv_test('is_a_string_p', { this => 1 }),
		},
	);
}

*fn = \&name;

1;