[sdlgit/SDL_perl.git] / t / extendingrect.t

package MyRect;
use base 'SDL::Rect';

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
}

sub foo {
    my $self = shift;
    return $self->x;
}

package main;
use Test::More tests => 6;

my $rect = MyRect->new;

isa_ok($rect, 'SDL::Rect');
isa_ok($rect, 'MyRect');
can_ok($rect, qw(x y top left w h width height));
can_ok($rect, qw(new foo));

$rect->x(10);
is($rect->x, 10);
is($rect->foo, 10);
Commit	Line	Data
98ce5b8c	1	package MyRect;
	2	use base 'SDL::Rect';
	3
	4	sub new {
	5	my $class = shift;
	6	my $self = {};
	7	bless $self, $class;
	8	}
	9
	10	sub foo {
	11	my $self = shift;
	12	return $self->x;
	13	}
	14
	15	package main;
	16	use Test::More tests => 6;
	17
	18	my $rect = MyRect->new;
	19
	20	isa_ok($rect, 'SDL::Rect');
	21	isa_ok($rect, 'MyRect');
	22	can_ok($rect, qw(x y top left w h width height));
	23	can_ok($rect, qw(new foo));
	24
	25	$rect->x(10);
	26	is($rect->x, 10);
	27	is($rect->foo, 10);