10 my $self = SDL::Rect->new($x, $y, $w, $h);
13 Carp::croak SDL::GetError();
26 use Test::More tests => 6;
28 my $rect = MyRect->new;
30 isa_ok($rect, 'SDL::Rect');
31 isa_ok($rect, 'MyRect');
32 can_ok($rect, qw(x y top left w h width height));
33 can_ok($rect, qw(new foo));